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Sirva-se. 




O importante, numa loja de informatics 
e o numero de opgoes que ela oferece. 

£ a equipe tecnica de que dispoe, 
para uma orienta&ko segura 
na escolha do equipamento e do programa 
mais adequados ao seu caso 
pessoai, ou ao de sua Empresa. 

For isso a ComputerLand 
e importante para 
sua decisao. 
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Consulte o nosso cardapio: 



BRASCOM 

DACTRON 

DIGITUS 

DISMAC 

EDISA 

HP-HEWLETT PACKARD 

JR-SYSDATA 

MICRO ENGENHO 

MICRODIGITAL 

POLYMAX 

RADIO SHACK mod. IV 
SAYFI 

UNITRON AP II 
ELGIN 
ENAC 
ELEBRA 

GLOBUS DIGITAL 
ISA 

INSTRUM 
SETRA 
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H rastreando 

VARL4VEIS - Com este 
programa utilitario de 
Rudolf Homer Junior, que 
permite listar as variaveis de 
programas em BASIC 
Applesoft, abre-se um novo 
espaqo em MS para micros da 
linha Apple. 



A fk SIMULE UM PIANO EM 
4 ±U SEU TECLADO - E facil 
simular um piano e at6 criar 
efeitos sonoros especiais 
com este programa de Newton 
Braga Junior para 
equipamentos compativeis 
com o TRS-80. 




/Micro 




A /% CRIPTOGRAFIA, UMA 
ARMA CONTRA OS 
PIRATAS? - 1 - J6 usadas no 
tempo dos romanos, as tdcnicas 
criptograficas adquirem 
nova dimensao na era 
do computador. Artigo de 
Candido Fonseca da Silva. 



O MICRO DA A 
OZ LARGADA! • Neste 
perigoso circuito de F6rmula I, 
e preciso ser um as do 
volante para nao sofrer 
acidentes. Programa de Renato 
Degiovani para os micros 
da linha Sinclair. 
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PONHA MdSICA NO SEU TK 

- Programa de Cleuton de Melo Junior. 

MUSICA, MAESTRO! - Programa de 
Roberto Quito de Sant’Anna. 

DlGITOS VERIFI C ADORES - Artigo de 
Eraldo Souza Rocha. 

DO, RE... MICRO - Programa de 
Thelma V. T. da Fontoura. 

ABRINDO ESPAQO NA TELA - Artigo 
de Renato Degiovani. 

O SOM (MAIS HARMONICO) DE SEU 
APPLE - Programa de Evandro 
Mascarenhas de Oliveira. 

JAZZ CIBERNETICO - Programa de 
Marcus Brunetta. 

ACERTE NA LOTECA COM O D-8000 

- Programa de Ivo D’Aquino Neto. 

OPERAQOES COMPLEXAS EM BASIC 

- Programa de Valdir Aguilera. 
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O ERRO DE TRUNCAMENTO EM 
BASIC - Artigo de Akeo Tanabe. 

APLICAQOES EM SANEAMENTO 
BASICO - Programas de Hilton Felicio 
dos Santos e Antonio Carlos 
Franco Zuccolo. 

FLIP: CAPTURE O ADVERSARIO 

- Programa de Hondrio Lisboa Neto 

O SISTEMA DE C0DIGO DE BARRAS 

- Artigo de Alwin Wilhelm Elbem. 

MINHAS PIORES PARTIDAS DE 
XADREZ - Programa de L. C. Lobato. 

MICRO SISTEMAS, ANO II - Indice da 
Revista, dos numeros 13 a 24. 

CURSO DE ASSEMBLER - VIII 

DATA PROVAVEL DE PARTO 

- Programa de Adauto Barbosa. 

PARABENS no dia certo 

- Programa de Luiz Gonzaga de 
Alvarenga. 
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• A Associagao Comercial do Rio de Ja- 
neiro incentivou a criagao de um Conse- 
Iho Permanente de Informitica quo, se- 
gundo Josd Maria Sobrinho, Presidente da 
Assespro Nacional e tambdm do Conse- 
Iho, serviri como uma assessoria cons- 
tante a Associagao 

Durante a posse do Conselho, reahza- 
da em 05 de agosto passado, o Secret&no 
de Informatics, Joubert de Oliveira Brizi- 
da, proferiu discurso no qual relacionou 
as tr6s principals razdes para a existencia 
de uma Politica de Inform&tica. nos mol- 
des da que vem sendo encaminhada ho/e. 

• Acontece que a Informitica nao pode 
ser considerada um departamento estan- 
que da atividade econdmica, algo que pos- 
sua uma politica independente. 

Ao contrdrio, contorme seu peso au- 
menta, contorme as repercussoes desta 
tecnologia se difundem por entre todos os 
aspectos de nossa vida social, torna-se 
imprescindivel que politica de informdtica 
e politica econdmica geral cada vez mats 
se confundam, se unifiquem, principal- 
mente no que diz respeito a coerencia. 
Senao, imaginemos: a politica particular 
incentiva as exportagdes; a politica geral e 
seus intricados aspectos cambiais prati- 
camente tornam-na impossivel. A politica 
particular busca a substituigao das impor- 
tagoes, a geral restringe a importagao dos 
insumos dos bens que pretendem substi- 
tuir as importagoes. A politica particular 
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luta por uma autonomia ; a politica geral 
compromete-se, trazendo em seu bojo 
pressoes que dificultam bastante qualquer 
tentativa de resguardo nacional. 

• Justamente a primeira razao apontada 
pelo Coronal Brizida foi a econdmica. i.e., 
a substituigao das importagoes, uma vez 
que a tecnologia 6 o segundo item de 
nossa pauta de importagoes. A Abicomp, 
associagao dos fabricantes da Area, por 
sua vez, comega a preocupar-se seriamen- 
te com as restrigoes impostas a importa- 
gao dos componentes necessirios a fabri - 
cagao dos equipamentos, principalmente 
na industria de perifdricos. Se a situagao 
prosseguir, resta a imposigao de uma ace- 
leragao na espala de nacionalizagao do 
produto. Isto envolve muito mvestimento, 
muita pesquisa e, sobretudo, tera um 
prego. 

• A segunda razao apontada pelo Secre- 
tdrio e estrateg/ca. Tecnologia, disse e/e, 6 
fundamental para a existencia de um siste- 
ma competitivo e dmamico, e tambem pa- 
ra o sistema de defesa, este da esfera de 
Seguranga Nacional. 

A criagao do sistema competitivo de- 
pends de outros fatorespara ser efetivada, 
tanto na Area interna da informdtica quan- 
to nas demais, uma vez que estamos con- 
siderando aqui a mformatica como um 
bem/servigo de suporte. A criagao depen- 
de do fator prego. Prego pensado num re- 
ferenda! de competitividade e performan- 
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ce externa. Prego pensado ainda mais sob 
a luz de uma andlise do mercado interno. 
O grande mercado 6 o Brasil, e temos que 
pensar como e/e ticarb depois do diluvio. 

• Uma maior preocupagao com o merca- 
do interno estA impllcita, inclusive, na ter- 
ceira forge motriz da Politica de lnform6- 
tica, a formagao de uma culture nacional, 
segundo Brizida condicionada ao nivel de 
capacitagao tecnoldgica do pals. Neste 
ponto, qualquer que se/a o argumento, 
exists um consenso: a reserva de mercado 
criou uma massa critica realmente capaci- 
tada a levar adiante o processo de absor- 
gao e desenvolvimento da informdtica. 

• Reconhecendo as ‘razoAveis necessida- 
des de atualizagao do mercado, sem con - 
tudo descaracterizar a iniciativa nacional'' 
o Secret&rio de InformAtica disse ser "im- 
possivel assimilar tecnologia atravds da 
compra de projetos industrials'' 

Dificil realmente 6, mas tudo depende. 
Depende de quern compra; depende de 
quern vende; depende do que se entende 
por assimilar tecnologia; depende de co- 
mo se paga. Fundamentalmente depende 
do prego. A opgao de compra de tecnolo- 
gia tern um prego. A autonomia tern outro. 
E uma equagao que trata de equilibrar o 
prego pago pela nagao e o prego pago 
pelo usu&rio. 






I* Para evitar possiveis problem** futu- 
ros, informamos que a firma Spartime e 
o sr. Eloi Jora Soares n*o mala rep re- 
sen tam a revista MICRO SISTEMAS para 
fins de venda de assinaturas. 
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DEMOLIDOR 

2K 

Jogo anrmjdo lipo Hiper ame O |oge 
dot detail datnoltr uma patada com 
ana bola qua va ancontia tempt# am 
movimento 



MONSTRO DAS TREVAS 
TRIDIMENSIONAL 16K 

Imprassionanta logo and# voc4 d**vc 
avitar o monstro das travas Tudo am 3 
dimansdes 



JOGO DE GAMAO 
16K 

Esfa programa apresanla o tabuleiro no 
vtdao • ulili/a o aticianta codrgo da ma 
auma paomtindo 4 (quatro) nivais da 
diticuldada* da jogo 



RALLY 

16K 

Emocionanta corrida da tally am um la 
bttmlo. onda poderto tar lettadot tua 
habilidada a aaua ralleiot Pare coma 
gun sau mtanto. voce davata eultar cat 
rot ataqua a obtlaculot am aau Irajalo 



INVASORES DO 
ESPAQO 16K 

Cootitla da uma Itola da naval invato 
rat ailtalarranat. dascando no pianola 
Tarta Sua mittao a datlrult at naaat 
invatoiat ditpondo da atma da raloa la 



LABIRINTO 

TRIDIMENSIONAL 16K 

Jogo am tr*s dtmantdas O jogador po 
dara dafintr a ddiculdada do labtnnto 
0 programa apresanta a posigao do jo- 
qador am parspacttva Em qualqoar mo 
manlo a possival padir auailio ao com 
putador 



TKALC 

16K/64K 

Ptograma datanaolvido pata calculot 
numancot am planllha O utuano dell 
na at colunat. at linbat a at lormulat 
aplicadat Simitar ao lamoto Vtticalc 
Da grand# vartatilidada. atla ptogtama 
parmtla a formulae ao da cekuloe clan- 
Itllcot a comatcrait. anallta da labalat 
numerical t oultas aplicagdet 



TK MAN 
16K 

Jogo ammado onda deverto tat apaga 
dot lodot ot ponlinhot atpalliadoi am 
um labtrlnlo lo ptogtama contam IS lr 
pot da labitinlol Voct tara rmpadido a 
qualquer cutto. pot 4 ealratarrenov 
guardiaet do labirinto. qua poderto tat 
combatidot com catgat da tarotJatat 



MATEMATICA I 
16K/64K 

Anallta gratice da lunedat malamali 
cat. ratolucAo da tttlemae do aqua 
COat linear#* (I6K St equacoes S4K 95 
aquaedat). a Calculo da Inlagtait deli 
nidot 



TKADREZ II 
16K 

Esla |oqo aprasanta o tabulatro a at pa 
^Mno vidao Permit* a a%colba da at# 
1 da dificuldade O programa for 

naca a q»alqu«»r momanlo a llstagem 
dos lancas ateUjados a arma/ana am 
bta a povcao dat pages I la podara ra 
^Mndar a sua |ogada 







Transforme seu TKem um verdadeiro piano eletronico e reviva Beethoven em ritmo cibern4tico. 




Ponha musica 
em seu TK 



Cleuton de Melo Junior 



Parando para pensar um pouco, reparamos que convivemos com a violencia 
o dia inteiro, entfo, por que s6 fazermos programas de guerra, tiros e naves 
atacantes? Para sair um pouco desta rotina, aqui est2 um programa que mostra a 
real capacidade do seu TK82-C (ou similar). 

Carregue-o, digite RUN 110, seguido de NEW LINE, e o programa lhe 
ensmara como usd-lo. 



1 REM 01234567890123456789012 
345678901234567890123454 

2 REM 



5 GOTO 9990 

10 PRINT "ENTRE COM SUA MUSICA 

m 

15 INPUT A$ 

20 LET A|=A|+"FFF" 

25 LET 0-16567 

30 FOR 1-1 TO LEN A$-l STEP 2 
40 POKE O, (CODE A$ (I) -28) *16+C 
ODE A$ (1+1) -28 
50 LET O-O+l 
60 NEXT I 
70 FAST 

75 LET K-USR 16546 

80 CLS 

81 SLOW 

82 PRINT TAB 2; "TECLE <1> P/TO 
CAR NOVAMENTE" 

83 IF INKEYI-" " THEN GOTO 83 

84 IF INKEY|-"S " THEN GOTO 30 

85 PRINT TAB 2; "TECLE <2> P/ O 
UTRA MUSICA" 

86 IF INKEYI-" " THEN GOTO 86 

87 IF INKEY|-"S " THEN GOTO 245 

88 IF INKEY|-"1" THEN GOTO 70 
90 PRINT AT 10,12; "FIM" 

99 STOP 

100 SAVE "PIANO" 

110 PRINT "PIANO ELETRONICO" 

115 PRINT " " 

120 PRINT , , , , "CADA SOM CORRESP 
ONDE A UM VALOR HEXADECIMAL." 

130 PRINT , , "PARA OBTER A MELOD 
I A DESEJADA, VOCE DEVE TECLAR N 
A LINHA 10 (10 LET A|-) OS CO 

DIGOS HEXA DE CADA SOM, QUANDO A 
MAQUINA PEDIR" 

140 PRINT ,,"OS SONS TEM A DURA 
CAO IGUAL E PARA OBTER NOT AS M 



AIS LONGAS REPITA O CODIGO. I 
NTERVALOS SAO OBTIDOS COM O CODI 
GO 00." 

145 PRINT AT 21,0;"TECLE NEW LI 
NE P/CONT." 

150 IF INKEYS-"" THEN GOTO 150 
155 CLS 

160 PRINT " NOTA 1 ESCALA 
2 ESCALA" 

165 DIM B| (2, 24) 

170 LET B| (1) -"F0E5D8CFC3B8ADA5 
9C948B83" 

175 LET B| ( 2) -"7A736B67605A5651 
4B484440 " 

180 LET CI-"C C+ ; D-D D+jE 

-E F F+;G-G G+;A-a A 
+ ;B-B 

190 FOR 1-1 TO 12 
200 PRINT C| (1*5-4 TO I*5);TAB 
lljBKl, 1*2-1 TO 1*2); TAB 24;Bf( 
2, 1*2-1 TO 1*2) 

210 NEXT I 

220 PRINT , , "COMO EXEMPLO , TEMO 
S MUSICAS NAS LINHAS 1000 E 1010 
. SE VOCE QUERTOCA-LAS, RESPONDA 
POSITIVAMENTEAS PERGUNTAS, MAS 
ANTES AUMENTE O VOLUME DA TV." 

230 PRINT AT 21,0; " P/CONT I NUAR: 
NEWLINE 

240 IF INKEYI-"" THEN GOTO 240 

245 CLS 

246 PRINT "TECLE." 

247 PRINT TAB 5;"<S> P/OUVIR OS 
EXEMPLOS OU" 

248 PRINT TAB 5;"<N> P/COMPOR S 
UA MUSICA" 

249 IF INKEYI-"" THEN GOTO 249 

250 IF INKEY|-"N" THEN GOTO 10 

251 IF INKEY|o"S" THEN GOTO 24 
9 

255 PRINT 

260 PRINT "TECLE:" 

262 PRINT TAB 5;"<1> P/ ""PARAB 
ENS"" OU" 

264 PRINT TAB 5;"<2> P/ ""SINFO 
NIA""" 



270 IF INKEYI-"" THEN GOTO 270 
280 IF INKEY|="1" THEN GOTO 100 

0 

290 IF INKEY|-"2" THEN GOTO 101 

0 

300 GOTO 270 
999 REM PARABENS 
1000 FAST 

1005 LET AS-"B8B800B8B800A5A500B 
8B8008B8B00949494940000B8B800B80 
0A5A500B8B8007A7A008B8B8B8B00B8B 
800B8005A5A5A6B6B6B008B8B8B00949 
400A5A5A500676700676B6B008B8B007 
A7A008B8B8B" 

1008 GOTO 20 

1009 REM QUADRAGESIMA SINFONIA 

1010 FAST 

1011 LET A|-"B8C300C3C300B8C300C 
3C300B8C300C3C37A7A7A007A8394940 
094A5B8B800B8C3D8D800D8D8D800C3D 
800D8D8C3D800D8D800C3D800D8D8838 
3830083949C9C009CB8C3C300C3D8F0F 
000F0F0007A830 083 836B6B9C9C8 3839 
494C3C3007A830083836B6B9C9C83839 
4947A7A007A8394A5B8B8C3C3B8B8" 
1019 GOTO 20 

9990 LET A|-"7B3D20FDC906E05EAFB 
B2 80CDBFECD8240D3FFCD8240 18050E0 
50D20FD10E8C921B74 0CD8740 2 37EFEF 
F20F7C9" 

9991 LET 0-16514 

9992 FOR 1-1 TO LEN A|-l STEP 2 

9993 POKE O, (CODE Al (I) -28) *16+C 
ODE Al (1+1) -28 

9994 LET O-O+l 

9996 NEXT I 

9997 SLOW m 

9998 CLS ^ 

9999 GOTO 110 



Cleuton Sampaio de Melo Junior i tecnologo 
em Processamento de Dados pel a Sociedade 
de Ensino Superior e Assessoria Ticnica — 
SESAT/RJ. Trabalha hi cinco anos em PD. 
Atualmente i programador no BANERJ. 
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VocS s6 descobre o quanto precisa de um Micro-Com- 
putador JR da Sysdata depois que o conhece de perto. 

Voc6 vai ter certeza de que fez um 6timo negbcio ao 
adquirf-lo assim que o colocar na sua empresa ou na sua 

CdSd. 

0 JR da Sysdata 6 rSpido, 6 vers£til, 6 compacto. 

APLICAQOES: 

Contabilidade, controle de contas a pagar, controle de 
contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relat6rio de clientes, mala direta, 
caiculos de orpamentos financeiros, controle de processos 
industrials, c^lculos de engenharia, cdlculos de estatfsti- 
cas, furxpdes matem^ticas, funqbes Ibgicas em cadeia de 
caracteres (STRINGS), grSficos, jogos animados, progra- 
mas educacionais. 

O JR PERMITE AINDA: 

0 acesso a grandes sistemas de computa<?3o, a comuni- 
cap3o entre os departamentos de Empresa, efetuar pro- 
gramas especfficos para cada Empresa. 



~ E, comose n§obastasse, ele 6 o Micro-Computadorde 
manor prepo do mercado. 

Com todas as qualidades que tern, o JR da Sysdata nem 
precisava ser t§o econdmico. Mas 6. 



Afinal, ele 6 o mais completo Micro-Computador de sua 
gerapSo. 

Inclusive no prepo, 

Vocd pode testar estas e outras qualidades do JR em 
qualquer dos nossos revendedores. 
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Campo Grinds DRL = (067) 382 6487 • Video Computadores - (067) 321 4220 BRASILIA - Capital Compushow “<£61 ( 273-2128 Digitec - (061) 225-4534- 
RIO DE JANEIRO - Capital Clap = (021 ) 288-0734/284-5649 - Computique * (021 ) 267-1093 - Kristian = (021 ) 252-9057 - Micromag ■ (021 ) 222_6088 ^strdp 0 
Ns - Foto Otica = (0242)42 1393/4 3-6 120 -PAR AN A- Loodrina Shop Computer = (0432)23-9674 Umuarama CBM Comeraal = (0446) 23-2233 CuriBba - 
Microsystem = (041)232-3533 Ponta Grossa - Grupo Data Memory = (0422)24-6191 - PARAiBA - Jofto Pessoa Medusa = (083) 221 -6743 -CEARA- FortolaM - 
Siscomp = (085) 244 4691 ■ MINAS GERAIS - Balo Horizonte Compucity = (031) 226 6336 - Kemitron = (031) 225-0644 - PrO InformAtya - (0311 337-8 792 - 
SANTA CATARINA - Blumanau Projesul = (0473) 22-3848 Floriandpolis Castro = (0482) 22-6933 - Infotec = <° 4 ®|) 23^4777 - RIO GRANDE DO SUL ■ _Noao 
Hamburgo Micromega = (0512)93-4721 Porto Alegre Advancing = (0512)26-1194/26-0194 Digital = (0512) 40-1 998/24-141 1 - Microsw = (0512)22-9782- 
Sistematica = (0512)21-0732/21-0835 







O sorts ado deste mes, que recebert 
gratuitamente uma assinatura de um ano 
de MICRO SISTEMAS, 6 Eduardo Scha- 
drack, de Santa Catarina. 



MANUAL DO D-8001 



(. . .) Sou o feliz propriet4rio de uma 
calculadora — HP-41C, bem como de 
um Dismac D-8001, equipado com 
impressora. Pena que o "manual de 
BASIC" deste ultimo seja ridi'culo, 
considerando o seu porte e as suas po- 
tencialidades (por exemplo, o manual 
do TK82-C, meu equipamento ante- 
rior, era muito maiscompleto em rela- 
p3o ao D-8001). V4rias funpoes exis- 
tentes no D-8001 nao sao referidas 
como, por exemplo, a funpao IN KEY. 
S6 foi possi'vel saber o funcionamento 
de v4rias funpoes do equipamento atra- 
v£s de programas e artigos publicados 
em MICRO SISTEMAS. 

Outra coisa: acima do teclado redu- 
zido existem quatro teclas (FI a F4) 
completamente inuteis, s6 servem para 
mostrar alguns caracteres especiais. Es- 
crevi para a Dismac relatando isto mas 
ate agora nao recebi resposta (a carta 
foi encaminhada junto com o cartao 
de inscripao no Clube dos Usu4rios, 
sendo possi'vel que tenha se extravia- 
do). 

Cabe dizer ainda que o manual se 
refere ao equipamento D-8000 (com 
gravador embutido). No rnrnimo, acho 
que a Dismac deveria publicar um "su- 
plemento" sobre o D-8001, enfatizan- 
do, principalmente, as caracteri'sticas 
de impressao — ali£s este foi o princi- 
pal motivo que me fez trocar para o 
D-8001. O manual nSo mostra e nem 
faz references 4 impressao de caracte- 
res minusculos. So consegui descobrir 
por acaso que a impressora imprime le- 
tras minusculas quando se tecla 
SHIFT, por sinal, o vfdeo tambem nao 
mostra esse caracteres quando se acio- 
na o cbdigo ASCII correspondente. 

Para atenuar um pouco este ultimo 
aspecto, em favor da Dismac, deve ser 
dito que recebi tambem o manual da 
impressora em Ingles, o qual ainda nao 
pude ler com a devida atenpao. Mas, de 
qualquer forma, sempre ficar4 a duvi- 
da: ser3 que todas as caracterfsticas da 
impressora (que at6 agora tern sido 
excelente) sao compati'veis com o 



D-8001 e vice-versa, ou existem coisas 
que um faz e o outro- nao pode fazer? 
Digo isso porque a impressora nao 6 
fabricada pela Dismac, como da a en- 
tender o manual da mesma (. . .). 

Paulo A. L. Borges 
Porto Alegre — RS 

Como 6 habitual, Paulo, mandamos 
as suas observapoes para a Dismac que 
nos remeteu a seguinte resposta: 

"Admitimos que existem funpdes 
que nao sao explicadas no manual, 
por6m 99% das instrupdes existentes 
no BASIC nfvel II (linguagem utilizada 
pela famflia D-8000) estao no manual, 
e bem explicadas. 

As instrupdes que nao sao menciona- 
das no manual sSo apenas trfis: IN KEY 
$, USR e VARPTR. As outras instru- 
poes que nao sao mencionadas (as do 
AP^NDICE A, de onde o leitor deve 
ter tornado como base para fazer tais in- 
dagapoes) nao existem no BASIC nfvel 
II, portanto nao h4 como explicar uma 
instrupao que nao funciona na lingua- 
gem utilizada e, portanto, nos micros 
da famflia D-8000. 

As famflias at£ aqui tern como ori- 
gem o AP^NDICE A, porque na hora 
da verificapao da prova do manual, por 
um lapso esquecemos, e lamentamos, 
de retirar estas instrupoes inexistentes 
no BASIC nfvel Ilea introdupao das 
tres instrupdes que faltavam. 

Com relapao as "teclas inuteis", 
gostarfamos de ressaltar que elas nao 
sao inuteis. Estas quatro teclas foram 
introduzidas recentemente no equipa- 
mento e ainda n§o houve tempo h4bil 
para uma utilizapao especffica. Encon- 
tra-se em estudos a possibilidade de 
gravapao de programas aplicativos em 
EPROM, que seriam acessados atravgs 
de uma dessas quatro teclas. Para nao 
ter que carregar um programa a toda 
hora, o que o leitor tern que admitir 
que 6 um processo lento, este progra- 
ma seria acessado, por exemplo, pela 
tecla F2. 

Percebe-se entao que tudo que o 
equipamento possui tern sua utilidade. 
A Dismac, sempre procurando ajudar 
ao mdximo o usu4rio, fez o lanpamen- 
to deste teclado, momentaneamente 
sem funpao, apenas para que depois de 
lanpada esta novidade, o usu4rio nao 
tenha um acr£scimo de prepo no custo 
do equipamento para a adaptapao des- 
se novo recurso, o que nao seria inte- 
ressante para o usu4rio em dias de crise 
economica. Como se ve, a Dismac s6 
estd pensando no bom atendimento ao 
cliente. 

Quanto 4 correspondence enviada 4 
Dismac pelo leitor, lamentamos infor- 
mar que nao a recebemos. 



Ainda com referenda 4s crfticas de 
que o manual nao 6 do D-8001 e sim 
do D-8000, querfamos esclarecer que o 
manual 6 o mesmo para ambos, porque 
essa nomenclatura 6 apenas um jogo 
comercial. A unica diferenpa que exis- 
te de um micro para o outro 6 a adipao 
de uma impressora. 

A questao de se publicar um suple- 
mento de impressao seria invi£vel, 
porque o D-8001 nao funciona com 
apenas um modelode impressora. Este 
suplemento nem teria sentido porque 
se sao de diferentes modelos, 6 eviden- 
te que cada uma tenha suas particulari- 
dades e elas estao nos seus respectivos 
"manuais da impressora". 

Quanto d compatibilidade das im- 
pressoras ao D-8001, 6 evidente que 
sao compatfveis, pois nao teria sentido 
vender uma impressora que nao fosse 
compatfvel com o equipamento. 

Quanto a recursos de impressao, 
cabe ao leitor ler o "manual da impres- 
sora" porque 6 14 que estao relacionados 
os recursos da mesma. Ali6s nao 6 ne- 
cess4rio nem ler, porque a maioria do 
conteudo desses manuais sao tabelas. 
Agora o que o leitor necessita fazer & 
assimil4-las. 

Com relapao 4 gerapao de caracteres 
minusculos no vfdeo, o leitor pode ma- 
nuse4-Jos atravtis da instrupio POKE e 
nao CHR$." 

Valdomiro Colovati 
Gerente Nacional de Vendas da Dis- 
mac 



MS AGRADECE 



Considero a revista MICRO SISTE- 
MAS muito boa. Mas a capa da revista 
4 muito pobre, pois 6 feita de material 
muito fino. 0 fato da revista usar en- 
cadernamento com grampos contribui 
para que a capa se desprenda facil- 
mente da mesma e, em seguida, as fo- 
Ihas. 

Seria bem melhor se fosse feita uma 
capa com papel mais consistente e que 
fosse adotado outro tipo de encader- 
namento. 

Joao Luiz Baroni 
Curitibanos-SC 

Parab^ns pela excelente qualidade 
da revista MICRO SISTEMAS, fruto, 
sem duvida, de grandes esforpos que, 
partindo de uma edip3o de apenas 40 
p4ginas, em menos de um ano e meio 
chegou ao que 6 hoje: uma reconheci- 
da publicap3o. Prova isso a macipa co- 
laborapao dos anunciantes que, como 
se ve, confiam no exito da revista. 

Juan Jorge Thierer 
S3o Paulo — SP 
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Gostaria de parabenizd-los pelo ex- 
celente m'vel e qualidade da revista, o 
que demonstra que por detrds da mes- 
ma se encontra uma equipe responsd- 
vel e qualificada, proporcionando ar- 
tigos e publicagoes que vem de encon- 
tro 3s curiosidades, necessidades e an* 
seios de todos aqueies ligados ao fas- 
cinante mundo da microcomputag2o. 
Fredi J. Moser 
Joinville — SC 



Sou leitor dessa - revista desde os 
seus primeiros numeros e s6 tenho a 
parabenizar a equipe pelo ex celente 
trabalho realizado e a evolugao cons- 
tante da revista. 

Adagenor L. Ribeiro 
Beldm — PA 



HP-19C 



Sou proprietdrio de uma calculado- 
ra HP-19C (calculadora cientffica 
program3vel com memdria constante e 
impressora), adquirida em 1980 nos 
Estados Unidos. Apos tres anos de 
bons servigos, est3 agora defeituosa. 
Inicialmente entrei em contato com a 
fdbrica da HP em S3o Paulo. Esta, 
contudo, n3o me respondeu. EntSo 
entrei em contato com um revendedor 
autorizado da HP em Sao Paulo (J. 
Heger &Cia.); este me informou que a 
fdbrica nao poderia fazer o conserto 
aqui no Brasil e que eu deveria remeter 
a calculadora aos EEUU. 0 mesmo 
revendedor aproveitou para enviar-me 
o catdlogo de outras calculadoras! 

Pergunto-vos agora: que espdcie de 
fdbrica 6 a HP que, no momento de 
vender seus produtos, afirma em seus 
manuais que d3 assistencia tdcnica em 
todo o mundo, mas quando esta se faz 
necess3ria a mesma inexiste. 

Eduardo Schadrack 
Blumenau-SC 

Remetemos seu desabafo para a 
Hewlett Packard, que nos respondeu: 
"A Hewlett Packard, como uma das 
empresas h'deres do mere ado m undial 
de eletr&nica, dedica substancial quan- 
tidade de recursos 3 pesquisa e desen- 
volvimento de novos produtos, os 
quais s3o inicialmente revend idos nos 
Estados Unidos. 

Por razdes mercadokigicas, estrat6 
gicas ou mesmo de restrigoes locais, 
nem todos os produtos desenvolvidos e 
revend idos nos Estados Unidos s§o 
introduzidos em todos os mais de 70 
palses onde a HP mant6m eserrtbrios 
de Vendas e Assistencia Tdcnica. 

£ o caso da calculadora HP-19C. 
Este produto nunca foi comercializado 



pela HP do Brasil. N3o dispomos, aqui, 
de pegas de reposigfo ou treinamento 
t^cnico especi'fico para proporcionar 
Assistencia Tdcnica adequada para este 
modelo de calculadora. Suporte inte- 
gral de Assistdncia T6cnica este dispo- 
m'vel no pals onde a mesma foi adqui- 
rida. 

Gostarfamos de solicitar, de todo 
modo, que V. Sa. nos contatasse 
diretamente, conforme sua convenien- 
cia, para estudarmos a viabilidade de 
um reparo den tro de condigdes de 
"m3ximo esforgo", utilizando os re- 
cursos disponfveis localmente." 

Rubens Stephan Junior 

Gerente de Assistencia T6cnica da 

Hewlett Packard 



SUGESTOES 



Acho a revista de voces muito boa e 
simp£tica. Gostaria, no entanto, de dar 
uma sugestSo para melhorar mais e tor- 
nj-la mais util para a gente, leitores e 
usu£rios: nao fagam os programas em 
letras e numeros tao pequenos, fica 
muito diffeii na hora de digitar. No 
resto, tudo bom. 

Vanderlei P. Souto Jr. 

Botucatu - SP 

Creio nunca ser demais parabeni- 
za-los pelo alto m’vel e qualidade que 
sua revista nos proporciona. Gostaria, 
contudo, de dar uma sugestao que vi- 
ria a melhorar ainda mais o conteudo 
dessa revista: como sou possuidor de 
uma pequena m£quina programJvel 
(HP-34C), gostaria que fossem publi- 
cados, na medida do possfvel, progra- 
mas e/ou matdrias que atingissem este 
tipo de mJquina, cuja capacidade de 
programagao 6 muito inferior aos ar- 
tigos publicados nessa revista. 

Penso que essa iniciativa benefi- 
ciaria a um numero grande de "pe- 
quenos" programadores, como eu. 
Paulo Roberto B. Reis 
Rio de Janeiro-RJ 

Estou com voces e n3o abro (so 
abro para ler a revista)! Mas bem que 
voc6s podiam atender aos pedidos de 
tantos leitores, como eu, que sugerem 
a publicagao de numeros especiais de 
jogos, especialmente para os micros 
compatfveis com o ZX81 . 

Josl M3rio Ferreira Borges 
Maceib — AL 



Envie suas sugestoes para MICRO 
SISTEMAS. Elas serao anotadas em n os- 
sa pauta e procuraremos, na medida do 
possfvel, viabiliz^-las. 



Em nossa loja somos todos 
Pro- informatica. Pro-didatica e 
Prd-eletronica. 



SiliOK 



FLEXI DISK 



fit jf) 



I Unitron 




ELETUINIU 

PR 6 ELETR6NICA 
COMERCIAL LTDA. 

Rua Santa Ef^*nw. 568 - CEP 01207 - SSo Paulo - SP 
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Enxadrista expenente. Luciano Nilo de An 
drade escrevempara os j or nan " Correio da 

Manha". ~ Data News" e " Ultima Hora" e pa 
ra a revista " Fatos & Fotos " Luciano 6 econo 
mista. trabalhando no Minister 10 da Fazenda, 
no Rio de Janeiro. As opimoes e comentArios 
de Luciano Nilo de Andrade, bem como as 
ultimas novidades do Xadrez /ogado por com 
putadores. estarao sempre presen tes em 
MICRO SISTEMAS 



Micros vs. Macros 



evin O'Connell, perito em Ci- 
bernetica aplicada ao Xadrez, 

preve que dentro de poucos 

anos os microcomputadores superarao 
os computadores de grande porte (os 
macros ) neste jogo. Segundo ele, os mi- 
cros tern progredido mais nos ultimos 
anos do que os macros, em virtude do 
esti'mulo comercial que os motiva dire- 
tamente, explicando-se dai o surgimento 
recente de mais novidades no campo dos 
micros que no dos macros. 

Um acontecimento importante que 
corrobora esta hipotese foram os resul- 
tados obtidos pel os micros e macros 
quando pela primeira vez competiram 
no Open Americano de 1982. Isso cons- 
titute numa prova de fogo para as md- 
quinas e seus respectivos programas. 

Os dois micros que competiram fo- 
ram o Sensory 9 e o Prestige Elite. Seus 
resultados foram os seguintes: 

Sensory 9 — Venceu jogadores com os 
seguintes Elos: 1791, 1356, 1732, 1358 
e 1660; empatou com um jogador com 
Elo 1781; e perdeu para jogadores com 
os Elos 2139, 1986, 1773, 1820, 1759 e 
1736. 0 Sensory 9 fez, assim, um total 
de 5,5 pontos em 12, tendo seu Elo es- 
timado em 1719. 

Prestige Elite — Venceu jogadores com 
os Elos 2049(1), 1991, 1757, 1763 e 
ainda um jogador sem Elo; empatou 
com dois jogadores, Elos 1988 e 1781; e 
perdeu para os jogadores com Elos 



2142, 1980, 1845, 1863 e 1752. Fez 6 
pontos em 12 possi'veis e teve seu Elo 
estimado em 1869. 

Os dois macros que competiram no 
Open rodavam com os programas Chaos 
e Belle. 0 Chaos, duas vezes vice-cam- 
peao mundial de computadores, fez 6 
pontos em 12 partidas, tendo perdido 
por tempo em duas partidas. 0 Belle, 
considerado o melhor programa, so dis- 
putou dez rodadas, tendo ganho sete 
partidas (de jogadores com Elos 1730, 
1917, 1909, 2003, 1548, 1715 e 1776) 
e perdido tres (Elos 2033, 1893 e 
1863), tendo seu Elo avaliado em 1989. 

Na modalidade de Xadrez Relampa- 
go, o Belle fez 7,5 pontos em 9 partidas. 
Outros dois programas para macros tam- 
bem concorrendo, o Chess 4.9 e o Gray 
Blitz, fizeram, respectivamente, 6 e 5 
pontos. 0 Prestige Elite, unico micro 
nesta modalidade, fez somente 3 pon- 
tos, embora tenha vencido jogadores de 
Elos 2109, 2092 e 2152! 

Em termos de Xadrez Relampago.os 
Elos das mdquinas foram reestimados 
para: 

Belle - 2412 
Chess 4.9 - 2202 
Gray Blitz — 2108 
Prestige Elite - 1856 

Aguardemos para ver se, com o tem- 
po a seu favor, o prognostico de O'Con- 
nell esta correto. Para os enxadristas, 
esta e uma profecia fagueira. 



* 

Como ganhar 
sem fazer forpa 



0 Challenge Fredkin em Schevenin- 
gen, Holanda, 6 um torneio anual em 
que participam igual numero de jogado- 
res e mSquinas com aprgbcimadamente o 
mesmo Elo. 0 vencedor deste ano, um 
jogador de nome Martinak, teve um due- 
lo incomum com as mciquinas. 

Na primeira rodada, o Gray Blitz, 
programa para computadores de grande 
porte, perdeu para Martinak (que tern 
Elo 2097) apos ter apresentado um de- 
feito que consumiu uma hora e meia de 
reparos e o forgou a realizar jogadas a 
um ritmo acelerado, em situagao infe- 
riorizada e que o levou d derrpta. 

Na segunda rodada, Martinak jogou 
com as brancas contra o programa 
Nuchess e limitou-se a repetir a partida 
jogada por outro concorrente, Zaffuto, 
contra o mesmo Nuchess, na primeira 
rodada do torneio, e que levou o progra- 
ma a beijar a Iona. 

Em tempo, Martinak yenceu esta 
competigao de quatro rodadas perfazen- 
do 3,5 pontos e embolsando 500 d6la- 
res. 

Um exemplo ilustrativo de como, 
sem fazer muito esforgo, pode-se derrro- 
tar computadores no Xadrez. Ou nao? 
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Os micros diante dos problemas 




D I AG RAMA A 

0 GM Ludek Pachman escreveu a 
respeito desta posigao: — Aqui a vitdria 
6 muito difi'cil. Eu a encontrei atraves 
da triangulaqao em 14 segundos. 

0 Sensory 9 e o Great Game Machine 
(com o programa Steinitz), em nivel de 
torneio, nao tiveram dificuldades em 
encontrar as jogadas ganhadoras. 



D I AG RAMA B 

Na ocasiao pensou-se que esta posi- 
gao levava ao empate. 0 padre espanhol 
Fernando Saavedra encontrou a linha 
vitoriosa. 0 programa Steinitz, do Great 
Game Machine, encontrou a continua- 
g ao correta mas foi incapaz de veneer 
porque, aparentemente, est4 programa- 
do para promover o peao em dama, e s6. 



Solupio dos Problemas: 
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CURSOS DE ESPECIAIJZAQAO 
PROFISSIONAL 

MICROCOMPUTADORES 

microprocessadores 

SOFTWARE i 



ASSEMBLER 
HARDWARE 

INTERFACES DO 8080/85 
MICROPROCESSADOR Z-80 
MICROPROCESSADORES 8080/85 
L0GICA DIGITAL I e II 
AMPLIFICADORES OPERACIONAIS 

Wt^m TELEPROCESSAMENTO 



TELEPROCESSAMENTO I 
TELEPROCESSAMENTO II 



HARDWARE 

SOFTWARE 



BANANA-85 

MICROCOMPUTADOR PARA 
DESENVOLVIMENTO DE 
SOFTWARE E HARDWARE 
REVENDEDOR AUTORIZADO 

AULAS PRATICAS COM I 

MICR6COMPUTADORES NACIONAIS 
KITS E LABORAT0RIOS DE 

eletrOnica digital 

TURMAS COM 20 ALUNOS i 

CURSOS FECHADOS PARA EMPRESAS 



AV. PRESIDENTE VARGAS 590/ GR. 217 

RIO DE JANEIRO Tel. (021) 233-5239 




Por baixo 
de um bom 
computador 
so pode existir 
uma mesa 



As Mesas para Terminals H&M sao t§o boas quanto o 
seu computador. Sabe por que? Porque elas s§o feitas 
com o mesmo know-how e o mesmo crit6rio de 
controle, seguranga e precisao, como sao feitos tamb6m 
os computadores. 

AI6m disso, as Mesas para Terminals H&M possuem 
acabamento perfeito, fosfatizado e com fundo plaine. A 
base 6 de poliuretano na cor grafite e o painel na cor gelo. 
0 tampo em todos os modelos 6 de madeira compensada 
de mogno ou virola, com revestimento de fdrmica fosca 
branca. 



Tudo isso com a qualidade, 
tecnologia e tradigao H&M que 
voc§ j£ conhece, e que o seu 
computador est£ esperando para 
conhecer. 

Consulte-nos pelo telefone ou solicite 
a visita de um representante H&M. 



Filiada a 
ANFORSAI 



kJ^BtHTO OC FOAMUlAMlOS C Representantes em todo o Brasil 
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Faga com que seus programas que contenham sub-rotinas em linguagem de maquina 
funcionem tanto na versao disco como cassete. Pratique ao som de Ain't she sweet. 



Music a, maestro! 



Roberto Quito de Sant'Anna 






is que um dia voce, feliz propnetano de um CP-500 

com dois drives, impressora, modem e tudo aquilo a 

que voce tern direito, resolve difundir a sua expenen- 

cia e enviar aquele programa espetacular, com duzentas e tan- 
tas lmhas, para publica^ao em MICRO SISTEMAS. 0 seu pro- 
grama usa uma sub-rotina em linguagem de mdquina e, logica- 
mente. a mstru^ao DEFUSR. Ja imaginou a frustrafao de um 
pobre mortal que s6 dispOe de versao cassete, ao receber a 
mensagem de erro L3 (so BASIC-DISCO), ap6s ter passado vi- 
rias horas digitando e sem ter conhecimentos necessdnos para 
modificar o seu incrivel programa? 

Saiba, entao, que e possivel fazer programas com sub-roti- 
nas em linguagem de maquina que independem da configura- 
9 §o utilizada. E, embora voce n£o possa saber quern, dentre os 
leitores de MICRO SISTEMAS, possui ou nao disco, o prdprio 
computador sabe, e voce pode instrui-lo a tomar as providen- 
cias adequadas para cada caso. 

A TEOR1A 

Voce jd sabe que 6 possivel localizar na memdna a posi^o 
de uma string, atraves de VARPTR. Sabe tambdm que 6 possi- 
vel modificar, na memdna, o conteudo de qualquer string (veja 
“Conhecendo melhor as strings”, MICRO SISTEMAS n9 23). 

A maioria das sub-rotinas em linguagem de maquina sao in- 
troduzidas em um programa em BASIC pela substitui^ao de 
cada um dos bytes de uma string pelo cddigo-objeto corres- 
pondente a uma mstru^ao em linguagem de maquina. Uma vez 
carregada a sub-rotina (usando READ, POKE e DATA), duas 
providencias sao necessanas para sua execu^o: pnmeiro, mfor- 
mar a maquina qual a localiza^o da sub-rotina na memdria; 
segundo, a ordem de execu^ao propnamente dita, realizada, 
em qualquer caso, por X =USR(n). 

Quanto a pnmeira providenaa, se o sistema nao dispuser de 
disco, d necessano pokear o endere^o lnicial da localiza^ao da 
sub-rotina na memona nas posi^des 1 6526 (byte menos signifi- 



cative — LSB) e 16527 (byte mais sigmficativo - MSB); se 
existe disco, basta usar a instru 9 ao DEFUSR - L, onde 
L = LSB+ 256 * MSB. Por exemplo, para fomecer o endereso 
inicial da sub-rotina a ser armazenada em X$ , teremos: 



10 X$ = "12345" 

20 P s VARPTR ( X$ ) 
K(P+2) 

30 POKE 16526, LS 
POKE 16527, MS 



LS=PEEK ( P+ 1 ) : MS=PEE 



| ( sem disco) 



ou 



30 L = 



L = LS + 256 * MS 

M 

DEFUSR=L J 



com disco) 



40 

Para escrever um programa que independa da configura^So, 
falta apenas perguntar ao computador se ele tern ou nao disco. 
Como? Simples: se o sistema n§o tern disco, a posi^o de me- 
m6na 16396 cont^m o valor 201 . Assim, se fizermos: 



10 



20 

30 IF PEEK( 16396) = 201 THEM POKE 16526, 
LS : POKE 16527, MS : GOTO 50 
40 L = 256 * MS ♦ LS : DEFUSR = L 
50 



12 
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obteremos exatamente o que buscamos: urn programa univer- 
sal , funcionando diretamente nas versOes disco e cassete. 

A prAtica 

Para umr o util ao agraddvel, vamos praticar ao som de mu- 
sica. Pnmeiramente nossa orquestra vai afinar os mstrumentos 
(e se voce nSo tem ainda como arrancar som de micro, sugiro 
retirar o plug que vai ao remoto do gravador e gravar o seguin- 
te programa numa fita, para posterior reprodu^ao:) 

10 RANDOM 

20 M$ = "12345678901234567890123" 

30 V » VARPTR ( N$ ) : LS = PEEK(V+1) : HS * 
PEEK ( V+2 ) : L = 256 * MS ♦ LS 

40 IF PEEK( 16396) * 201 THEN POKE 16526, 

LS : POKE 16527, MS : GOTO 60 

50 DEFUSR = L ♦ (L> 32767) * 65536 
60 FOR I = L TO L+22 : READ S s POKE I ♦ 

(I >32767) * 65536, S : NEXT 

70 X = USR(RND( 255) + 256 * RND(127)) : C 
OTO 70 

80 DATA 205,127,10,203,36,69,62,1,211,255 
,16,254 

90 DATA 69,62,2,211,255,16,254,37,32,239, 
201 

RUN 

NSo se assuste com as linhas 50 e 60. Embora pare9am um 
tanto estranhas, elas apenas venficam se se trata de alguma po- 
S1930 de memona acima de 32767; em caso afirmativo, a ex- 
pressSo L (ou I) > 32767 6 verdadeira e assume o valor- 1 , o 
que resulta em subtrair automaticamente 65536 de L (ou I). 
(Para maiores informa^&es, veja a pdgina 125 do Manual de 
BASIC da Proldgica.) 

Finalmente, apos afinada a orquestra, vamos curtir a musi- 
quinha predileta do Dancin' Demon: Ain’t she sweet; para tan- 
to,supnma a linha 70 do programa an tenor e acrescente: 

100 READ F : IF F = 999 GOTO 190 
110 IF F < 0 G0SUB 130 : GOTO 100 
120 READ D : X * USR(F + 256 * D) : GOTO 

100 

130 FOR I « 1 TO -F : NEXT : RETURN 
140 DATA 111,80,111,80,120,80,120,80,118, 
120,128,80,111,40 

150 DATA 120,40,111,80,111,80,120,80,120, 
80, 128,120,-20 



160 DATA 111,40,128,40,94,80,94,80,100,80 
,100,80,111,60 

170 DATA 100,40,111,60,128,40,140,60,150, 
60,150,60,170,55 

180 DATA 170,55,190,80,190,80,999 
190 RESTORE : GOTO 10 



As declara96es 80 e 90 constituem a sub-rotina em lingua- 
gem de mdquina propnamente dita, para a qual foi reservado 
um espa^o de 23 bytes na linha 20. Cada vez que a fun^ao 
USR, de argumentos F e D, i executada, 6 emitido um tom de 
frequencia F e duracfo D, sendo que F pode variar entre 0 
(mais grave) e 255 (mais agudo) e D, entre 0 (curto) e 127 
(longo). As declara5<5es 100 e 120 leem, alternadamente, valo- 
res de F e D, e a 130 mtroduz uma pequena pausa, quando 
necessdno. Com essas informa^es e alguma paciencia, voce 
pode compor suas propnas musicas em seu micro. ■ 



Roberto Quito de Sent'Anne rf Engenheiro de Telecomunicagbes, for- 
mado pelo Instituto Militar de Engenharia. Professor da cadeira de In- 
formitica da Academia Militar das Agulhas Negras, desde agosto de 
1982, 6 tambtim colaborador da MICRO-MAXI Computadores e Siste- 
mas, como analista de sistemas. 




SUPRIMENTOS P/ PROCESSAMENTO DE DADOS 

• FITAS MAGNfiTICAS 

• DISCOS MAGNfiTICOS 

• DISKETES (8 e 5 1/4) ORIGINAIS 

• FITAS IMPRESSORAS ORIGINAIS H0BS& 

• FITAS IMPRESSORAS NACIONAIS E IMPORT. 

• DATA CARTRIDGE 

• ACESS0RIOS (ETIQUETAS, TAPE SEEL, 

WRAP AROUND CARRETElS, REFLETIVOS) 

cpd - comErcio e representaqOes LTDA 

• S. P.: R. Ministro Gabriel de Rezende Passos, 382 
fones; 571-3440 / 571-0688 - Sao Paulo - CEP 04521 

• S. C.: R. Aracua, 98 - Costa e Silva - Joinvile 
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Um pequeno programa utilitario para listar as variaveis de seus programas em BASIC Applesoft. 




Rastreando variaveis 



Rudolf Horner Junior 



Q uando estamos escrevendo um 
programa de grande dimensao 
J em BASIC, 6 comum a dificul- 
dade em se identificar as variaveis que ]& 
foram usadas e o que exatamente signifi- 
cant 

No caso da famdia Apple II (Micro- 
engenho, Umtron, Maxxi, Apple BR) o 
problema do controle de variaveis pode 
se acentuar devido ao fato de que, nes- 
tas maquinas, apenas os dois primeiros 
caracteres do nome da vandvel sao con- 
siderados em sua identifica 9 ao. (No 
BASIC Applesoft, s 6 sao reservados dois 
bytes para o registro do nome de uma 
variavel, compreendendo assim somente 
as duas letras ou numeros lmciais do 
nome). 

Isto sigrufica que os nomes de varia- 
veis FATO e FACA fazem referenda 
ao mesmo valor, nao importando que se- 
jam palavras diferentes. Qualquer ldenti- 
ficador que principle com as letras FA 
representard, para o computador, o mes- 
mo valor (inteiro, real ou alfanum^rico), 
nao havendo diferen^a devido as demais 
letras do identificador. 

Alem disso, existem tres tipos dife- 
rentes de vandveis do tipo simples em 
Applesoft, que sao: 

1 — Variaveis inteiras — S3o variaveis 
que s 6 admitem numeros mteiros entre 
-32767 e 32767. (Em sua codifica^o 
sao usados 2 bytes. Assim, como cada 
byte pode assumir 256 estados diferen- 
tes, as variaveis inteiras podem ter 256 
vezes 256 (= 65536) valores distintos. 
Como queremos ter numeros positivos 
e negativos, teremos 65536/2=32767 va- 



lores). Elas sao diferenciadas das demais 
pelo simbolo % que segue o nome da va- 
navel. Exemplos: A%, VA%, HOJE%. 

2 — Variaveis reais — Sao variaveis que 
admitem numeros reais. Assumem qual- 
quer valor entre -9.99999999E37 e 
9.99999999E37 e sao codificadas com 
anco bytes: um para o expoente e qua- 
tro para a mantissa. Exemplos: A, VA, 
HOJE. 

3 — Variaveis string — S3o variaveis alfa- 
numencas e podem armazenar cadeias 
de 0 a 255 caracteres. Elas sao registra- 
das com tres bytes: um para a quantida- 
de de caracteres encadeados e dois para 
a posifSo de mem 6 na onde estd efetiva- 
mente registrada a cadeia de caracteres 
(apontador para a posigSo). Exemplos: 
AS, VAS,HOJE$.(£ importante notar 
que as variaveis A%, A e AS sSo vana- 
veis diferentes.) 

No momento em que uma nova vana- 
vel simples qualquer 6 cnada ou referen- 
aada durante a execu^ao de um progra- 
ma, o Interpretador BASIC usa sete 
bytes da memdna do computador para 
defiru-la. 

Para o caso de varidvel real, dois 
bytes sao para seu nome e cinco para 
seu valor. Para as variaveis inteiras, sSo 
dois bytes para o nome e dois para seu 
valor, ficando os tres restantes sem uso. 
E finalmente, para vanaveis string, dois 
bytes definem o nome da variavel, um 
byte define o numero de caracteres que 
estao armazenados nesta variavel e mais 
dois bytes indicam o endere^o de me- 
m 6 ria onde esti registrada a sequencia 



de caracteres correspondente. Os dois 
liltimos bytes ficam sem uso. 

Existe apenas um detalhe: para saber 
depois se vanaveld inteira, real ou string. 
o Interpretador registra os dois bytes de 
seu nome de uma maneira bastante 
especial. No Apple II, a tabela de ASCII 
6 duplicada, isto e, cada letra pode ser 
especificada por dois numeros. A letra 
A, por exemplo, pode ser codificada 
com o numero 65 ou com o endere 50 
193. Para as vandveis inteiras, no regis- 
tro de seu nome sSo usados os valores da 
tabela que sao maiores que 1 27 ; nas va- 
naveis string , usa-se o pnmeiro byte da 
pnmeira tabela e o segundo byte da 
segunda tabela. Os outros dois modos de 
codifica^ao existentes podem ser usados 
no registro de uma vanavel do tipo real. 

Vejamos um exemplo: considere o 
caso de registrar o nome das variaveis 
AA, AA% e AA$ nos dois bytes da lista 
de identificadores. O Interpretador agira 
conforme o mostrado na figura 1 e estes 
valores sao registrados em sequencia de 
sua defmi 9 ao no programa em endere^os 
que funcionam assim como uma lista de 
vanaveis. Quando o programador faz re- 
ferenda a um identificador, o Interpre- 
tador vai a esta lista e procura o identifi- 
cador referenciado. Quando o encontra, 
devolve o seu valor correspondente. 

Esta lista de vanaveis come 9 a em um 
endere^o de memona que 6 mdicado 
pelos bytes S69 e S 6 A (105 e 106 em 
decimal), tratando-se da lista de vana- 
veis simples. 

No caso das vanaveis endere^adas 
(arrays), o processo de armazenamento e 
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TIPO 




10 BYTE 


2o BYTE 


. INTEIRA 


AAt 


193 


193 


STRING 


AAS 


65 


193 

























Figura I 



um pouco mais complicado. Desta vez 
nao se pode arbitrar simplesmente que 
serdo usados apenas sete bytes para 
registrar todas as vandveis porque elas 
podem ter dimensdes variaveis. Fica a 
cnteno do programador definir o mime- 
ro de dimensdes e tambem o numero de 
vanaveis de cada dimensao. 

Neste caso, gastam-se dois bytes para 
definir o nome da vanavel, mais dois 
que apontam para a variavel endere 9 ada 
segumte. mais um que define o numero 
de dimensdes da vanavel, mais um par 
de bytes para cada uma das dimensdes 
(define o tamanho de cada dimensao) e, 
finalmente, cinco bytes para cada varia- 
vel real, dots para cada inteira e tres 
bytes para definir o tamanho e posnjao, 
no caso de vanavel string. 

A lista de vandveis endere^adas prin- 
cipia no endere^o de rnemdna aponta- 
do pelos bytes S6B e S6C (107 e 108 
em decimal). £ a lista das vanaveis ende- 
re^adas. 

O PROG RAMA 

Uma vez feita esta exposi^o, 
poderemos entender melhor o pro- 
grama utilitano que apresentamos ao 
final do texto. Sua fun^ao 6 muito sim- 
ples: rastrear as listas de vanaveis mos- 
trando ao programador os nomes e tipos 
de todas as vanaveis que foram usadas 
no programa em BASIC que esta sendo 
«scnto. 

No seu funcionamento sao usadas 
tres palavras: RJ, RH e RJ$(0). 0 pro- 
grama percorre a lista atd encontrar suas 
propnas vanaveis, podendo entao encer- 
rar a execu^ao, uma vez que a lista che- 
gou ao fim. 

Existem duas partes bem defimdas 
do funcionamento do programa. Na pn- 
meira, usando os apontadores dos bytes 
105 e 106, de vanaveis simples, ele mos- 
tra todas as vandveis simples usadas atl 
aquele momento no programa. Na se- 
gunda parte (com o apontador dos bytes 
107 e 108, lista de vanaveis endere 9 a- 
das) ele faz uma lista de vandveis ende- 
re^adas com o nome, tipo, numero de 



dimensdes e o tamanho de cada uma das 
dimensoes de cada vanavel endere^ada 
dimensionada ou usada no programa 
que se pretende rastrear. 

Toda vez que voce tiver um programa 
qualquer e desejar ver as vanaveis utili- 
zadas em sua execu^ao apos o tdrmino 
de seu processamento, basta intercalar 
nele o programa utilitano proposto nes- 
te artigo. Apos realizada a execu^ao des- 
se programa, o utilitano entrara em fun- 
cionamento e, lendo as listas de vanaveis 
constantes na memdria do computador, 
fara uma lista de todas as vanaveis que 
chegaram efetivamente a ser utilizadas 
durante a execu^ao. 

Esta mtercala^o podera ser feita de 
duas maneiras: com o programa remune- 
rador (RENUMBER), vendido junta- 
mente com o prdpno equipamento, ou 
atraves da digita 9 ao do utilitano logo 
ap6s o final da numera 9 ao do programa. 

Cabem ainda duas observa 9 des: 

— Ndo deverao ser usadas em seu pro- 
grama as vanaveis RJ, RH ou RJS(0), 
pois poderao ser confundidas com as va- 
naveis do programa utilitano. 

— As vanaveis que — apesar de consta- 
rem de seu programa - nao tenham suas 
defini9<3es efetivamente executadas nao 
serao hstadas. 

Apos a execu 9 ao de seu programa. a 
tela sera limpa e serao apresentadas mi- 



cialmente todas as vanaveis simples usa- 
das em seu programa e seu tipo corres- 
pondente (real, inteira ou string ). 

Em seguida, serao apresentadas as va- 
naveis endere 9 adas que foram usadas, 
seus tipos, numeros de dimensdes e ta- 
manho de cada dimensao. (Lembre-se 
que vandveis endere 9 adas que nao te- 
nham sido dimensionadas com o coman - 
do DIM assumem uma dimensdo com 
endere 90 s que podem lr de zero a dez, 
ou seja, onze vanaveis). 

Feitas as listas. a execu 9 ao terminara 
na hnha 150, ou noutra correspondente. 
ap6s alguma eventual remunera 9 ao para 
que se fizesse a intercala 9 io. 

O utilitano tambem podera ser utili- 
zado como sub-rotina de um outro pro- 
grama. Para isso, bastard que o END si- 
tuado a linha 150 seja substituido por 
um RETURN e que em seu programa 
voce fa 9 a um GOSUB para a hnha micial 
do programa utilitano. Neste caso. o uti- 
htano so listara as vandveis que foram 
usadas antenormente ao comando 
GOSUB que come 90 u a executa-lo. 



Rudolf Horner Junior curse CiSncia da Com- 
putapao na Unicamp e 6 sdcio da Potencial 
Software, firma que produz programas espe- 
ciais para microcomputadores em Londrina, 
PR. 



Rastreamento de variaveis 



10 TEXT I HOME : NORMAL > SPEED- 
233 

20 DIM RJ*(0> 

30 PRINT "SIMBOLOGIAi "i PRINT I PRINT 
"INTEIRAS (X) | PALAVRAS (•) 

| REA IS ( >“ 

40 PRINT i PRINT t PRINT “LISTA 
DE VARIAVEIS SIMPLESi "1 POKE 
34.8i HOME 

30 RJ - PEEK <103) + 236 * PEEK 
( 1 06 > t REM APONTADOR PARA V 
ARIAVEIS SIMPLES 

60 RH - 0 

70 IF PEEK (RJ > - ASC <"R“> AND 

PEEK (RJ ♦ 1> - ASC <”J ,, > THEN 
OOTO UOl REM ENCONTRADO 0 
FINAL DA LISTA DE VARIAVEIS 

80 GOSUB 210i PRINT 

90 RJ - RJ ♦ 7« REM TRANSFERS 0 
APONTADOR PARA UMA OUTRA VAR 
IAVEL SIMPLES 

100 GOTO 70 

110 PRINT I POKE 49168,01 PRINT 
"PRESS I ONE UMA TECLAl“|t GET 
RJ»(0) 

120 POKE 34, 4« HOME I PRINT "LIS 
TA DE VARIAVEIS INDEXADASl “l 
PRINT 1 PRINT "TIPO NOM 

E N’ DIM DIMENSOES" 

130 POKE 34, 9| HOME 

140 RJ - PEEK <107) ♦ 236 * PEEK 



<108)1 REM APONTADOR PARA V 





ARIAVEIS 


ENDERECADAS 




130 


IF PEEK 


(RJ) - ASC < "R" > 


AND 




PEEK (RJ 


♦ 1) - ASC ("J") 


♦ 




128 THEN 


END 




160 


GOSUB 210l PRINT TAB ( 17) | 


PEEK 




(RJ ♦ 4) | 


TAB < 23) | 




170 


FOR RH - 


PEEK (RJ ♦ 4) TO 


1 



STEP - ll PRINT 236 * PEEK 
<RJ ♦ 3 ♦ 2 * RH) * PEEK <R 
J ♦ 4 ♦ 2 * RH ) | " "|« NEXT 

180 PRINT 

190 RJ - RJ ♦ PEEK (RJ ♦ 2) ♦ 23 
6 * PEEK (RJ «• 3)1 REM TRA 
NFERE 0 APONTADOR PARA A PRO 
X IMA VARIAVEL INDEX ADA 

200 GOTO 150 

210 IF PEEK (RJ) > 127 AND PEEK 
(RJ ♦ 1> > 127 THEN PRINT " 
INTEIRA"! |RJ*<0> - "X“! GOTO 
240 1 REM VARIAVEL INTEIRA 

220 IF PEEK (RJ) < 128 AND PEEK 
<RJ ♦ 1) > 127 THEN PRINT " 
PALAVRA"! |RJ»(0) - "•"! GOTO 
240 i REM VARIAVEL "STRING" 
(PALAVRA) 

230 PRINT "REAL “I r RJ* (O) - " “1 REM 
VARIAVEL REAL 

240 PRINT TAB ( 11>| CHR* < PEEK 
(RJ)>| CHR* < PEEK (RJ ♦ 1)) 

| R J * ( O ) I 

230 RETURN 



dBASE CURSOS PARA EXECUTIVOS. MEDICOS E ADVOGADOS! 

n Voce pode ter um Dominio total de seus Dados. * Criar e Gerenciar Arquivos. * Fazer todos os possi- 
• veis Relatdrios e Pesquisas com base nos Arquivos. * Treinamento de 16 hs. em MICROS. Caso vo- 
ce n3o tenha MICRO, o curso Ihe dara condigdes de decidir com base em fatos. 

Stttama Rebioanal 

dBMICRO - AV. PROFESSOR ALFONSO BOVERO, 218 - TEL.: 263-0711 

/ *t) X I A . . 
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Uma and Use dos mdtodos para o calculo de digitos verificadores 
e a apresentagao do a/goritmo do mddulo 1 1. 



Digitos Verificadores 

Eraldo Souza Rocha 



a area de processamento de da- 
dos toma-se necessdrio que de- 

terminados campos numdricos 

que sSo considerados como chaves para 
acesso a determinadas informa^es — e 
cujos dados devem ser perfeitamente 
confiaveis — con tarn com um recurso 
que tome a ldentifica^o como sendo 
particular para cada registro gravado ou 
lido. 

O controle de valores numdricos 
usados em computa^o 6 importante 
quando estes valores s£o usados para a 
ldentifica^do individualizada da infor- 
ma^To. Como exemplo, podemos citar o 
caso mais usual, que 6 o do CPF, que 
identifica todos os contribuintes do Im- 
posto de Renda, cujos cddigos represen - 
tam uma fun$do univoca entre o contri- 
buinte e as informa 90 es a ele correspon- 
dentes. 0 mesmo acontece com a ma- 
tricula de alunos de uma escola, os cddi- 
gos de cartdes de cr^dito e tudo que ve- 
nha a ter a caracteristica de fun^So uni- 
voca. 

Apesar de existirem muitos m£to- 
dos para o calculo de digitos verificado- 
res, alguns sdo falhos. Deste modo, de- 
vemos ter sempre a preocupa^o de usar 
aquele que apresente a melhor efiaencia 
quanto aos seguintes itens: 

• transcriqio: falhas que ocorrem 

quando se t ran sere ve um valor. Ex: 
transcTever-se 1 por 7, 2 por 5 etc.; 

• transposi^ao simples: quando os valo- 



res s3o escritos corretamente, s6 que 
com numeros trocados entre si. Ex: 
1234 ao invds de 2134; 

• transposiqio dupla: quando a troca 
de numeros ocorre entre colunas. Ex: 
21963 ao invds de 26913; 

• outras transposes; 

• randomico : quando ocorre a combina- 
#Io de dois ou mais erros dos tipos ja 
mencionados. 

ANALISE DOS METODOS 

Dos vdrios mddulos de cdlculos de di- 
gitos verificadores, os mais usados sSo os 
mddulos 10 e 11. Em cada um deles usa- 
mos um peso para o cdlculo, que 6 apli- 
cado posicionalmente a cada algansmo 
que compde o valor do qual se deseja 
obter o digito venficador. 

Os m^todos, em sua maiona, usam 
pesos e m6dulos. Peso 6 o multiphcador 
de cada digito do numero de codigo pri- 
mitive que se emprega para se obter o 
produto. Mddulo 6 o numero que 6 usa- 
do para dividir a soma dos produtos re- 
sultantes da opera^o anterior para se 
obter o resto. 

Em estudo feito com a aplicafSo de 
vdrios metodos para o calculo de digitos 
verificadores foi encontrada a efiaencia 
de cada m^todo com base na detecta^io 
dos erros, de acordo com os erros que 
slo inseridos durante o processamento. 
O resultado desse trabalho esta na figura 



1, onde pode ser visto o mdtodo mais 
eficiente, que € o mddulo 1 1. A figura 2 
toma mais clara ainda esta afirma^o. 

O ALGORITMO 

Desenvolvemos, a seguir, o algontmo 
do mddulo 1 1 : 

me io 

RECEBE valor 
RECEBE posigoes 
i : = po siloes 
jt- 2 

ENQUANTO i / zero REPETIR 
SE j - 7 
ENtAO 
j “ 1 

TOTAL := TOTAL + VALOR (i) * j 
j*» j + 1 
1:- i - 1 

QUOCIENTE : ■ total /II 

resto:- total - (11 * quoclente) 

SE resto - 0 
ENTAO 

digito : “ 5 
SE resto ■ 10 
entAo 

digito :■ 5 
senAo 

digito 11 - resto 
RETORNA valor e digito 
FIM 



16 



MICRO SISTEMAS, setembro/83 




mOdulos 


AMPLITUDE 
DOS PESOS 
POSSfVEIS 


COMPRIMENTO 

mAximo DE 

NUMERO SEM 
PESOS 

REPETITIVOS 


PESOS 

UTILIZADOS 


PERCENTAGEM DE ERROS 


DETECTADOS 


TRANS- 

CRIQAO 


TRANS - 

POSIQAO 

SIMPLES 


TRANS- 

POSIQAO 

DUPLA 


OUTRAS 

TRANSPO 

SIQOES 


■ 








1-2- 1-2-1 


100 


97,8 


Zero 


48,9 


90,0 








1 -3- 1-3-1 


100 


88,9 


Zero 


44,5 


90,0 


10 


1-9 


8 


7-6-5-4-3-2 


87,0 


100 


88,9 


88,9 


90,0 








9-S-7-4-3-2 


94,4 


100 


88,9 


74,1 


90,0 








1-3-7- 1-3-7 




88,9 


88,9 


44,4 


90,0 


1 1 


1-10 


9 


10-9-8. . .2 


100 


100 


100 


100 


90,9 








1-2-4-8-16 etc 


100 


100 


100 


100 


99,9 


13 


1-12 


1 1 


Qualquer 


100 


100 


100 


100 


92,3 


17 


1-16 


15 


Qualquer 


100 


100 


100 


100 


94,1 


19 


1-18 


17 


Qualquer 


100 


100 


100 


100 


94,7 


23 


1-22 


21 


Qualquer 


100 


100 


100 


100 


95,6 


27 


1-26 


25 


Qualquer 


100 


100 


100 


100 


96,3 


31 


1-30 


29 


Qualquer 


100 


100 


100 


100 


96,8 


37 


1-36 


35 


Qualquer 


100 


100 


100 


100 


97,3 



Figura 1 



TIPOS DE ERRO 


NO DE 


EFICI- 


ERROS 


ERROS NAO 




ERROS 


feNCIA 


DETECTADOS 


DETECTADOS 


TRANSCRIQAO 


860 


100% 


860 


0 


TRANSP. SIMPLES 


80 


100% 


80 


0 


TRANSP. DUPLA 


10 


100% 


10 


0 


randSmico 


50 


91% 


45 


5 


TOTAL 


1000 




995 


5 


Numero de registros = 100.000 






Numero de erros 


= 1000 = 


1% 






Eficiencia = 5 erros nao detectados em 100.000 registros 


= 99, 


995% de 


cobertura de erros 





Figure 2 



Note que este algontmo leva em 
considera^ao que nlo ocorram repeti- 
96es de pesos tomando, assim, mats pre- 
ciso e eficaz o seu calculo, evitando 
erros. 

CONSIDERABLES 

Um outro algontmo bastante usado 6 
o de se somar todos os valores absolutos 
dos algansmos que o compoem para 
obter o digito venficador a partir deste 
valor. Este tambdm 6 um algontmo de- 
ficiente, uma vez que a mser^o de zeros 
no campo numdrico dard o mesmo digi- 
to venficador, ocasionando erro. 

Como 6 de importance vital que 
esses digitos correspondam a um e so- 
mente um valor numdneo vabdo, um 
processo em real time seria mais eficien- 
te e com pouco acumulo de erros que 
necessitem uma conferencia a postenon. 

Note tambdm que a utiliza^o de pe- 
sos apbeados a cada algansmo que com- 
poe o campo numlnco do qual se deseja 
obter o digito venficador 6 de grande 
importance, uma vez que desta forma 
eliminaremos a possibibdade de ocorre- 
remos erros de transcnfdo, transposi^o 
simples e dupla, randomico etc. 

Se compararmos o algontmo do m6- 
dulo 1 1 com o do mbdulo 10, que usual- 
mente considera pesos 1 para valores de 
POS19S0 l'mpar e 2 para as posi^es pa- 
res, podemos ver, atravds da figura 2, 



que a eficiencia deste segundo i bastan- 
te preedna. 

Alguns sistemas de computa^o usam 
o mddulo 10 que, como jd foi visto, ndo 
6 o mdtodo mais seguro para detectar os 
erros que podem ser cometidos durante 
o processamento. E se considerarmos 
tambdm que o processo utilizado pelos 
microcomputadores 6 interativo, esses 
erros podem ndo ser descobertos logo, e 
sim somente apos um longo processo ja 
ter sido concluido, o que acarretara uma 
grande perda de tempo. 

Conduindo, ndo nos colocamos con- 
tranos a utiliza^ao do m6dulo 1 0 para o 



cdlculo de digitos verificadores, apesar 
de n 5 o 0 considerarmos um bom m6du- 
lo; somos, sim, contrdrios aos algoritmos 
que tern sido utilizados pelas suas preca- 
nas eficienaas quanto d detecta^do de 
erros. ■ 



Eraldo Souza Rocha 4 mestra em Informdtica, 
formado pela PUC, graduado em Matemdtica 
pela Universidade Federal do Espfrito Santo e 
Analista de Sistemas pelo NPD da mesma Uni- 
versidade. 
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ICRO PROCESS 



COMPUTADORES LTDA. 



• Microcomputadores: 

TK 83/TK 85/CP 200/CP 300/CP 500 

• Micro Sistemas AIKO/CCE 
(ultimos lanpamentos) 

• Calculadoras Sanyo/Cassio 

• Fitas, disketes - Dysan e Verbatin 

• Monitores, impressoras, disk-drives, etc. 

• Programas (f ita/diskete) para todos os 
computadores 

- Contabilidade - aplicativos - jogos, etc. 

- Personalizapao de programas para firmas e 
profissionais liberais. 

• Jogos Odissey / Dactari 

• Manutenpao e transformapao de televisores 

• Mesas especiais para computadores 

• Re vistas e Publicapoes Tecnicas 
Despachamos por nossa conta via Varig 
tel.: 64-0468 

Alameda Lorena, n° 1310 - CEP 01424 
Sao Paulo 

*** ESTACIONAMENTO PARA CLIENTES *** 



CHEGA DE 
ESQUENTACAO 



(L ? J\nm\ 

. 

i ^ r * m' 1 

Software J 

pronto para ser usado. 

Programas de uso pessoal ou estritamente profissional; 

Cadastros, Banco de Dados, Locapdes, Contabilidade, Contas a Pagar 
e Receber, Editor de Texto, Conta Banc^ria, Mala Direta, Visicalc, 
Controle de Estoque. 

E para o programador; Editor Assembler, Compiladores Basic e Cobol... 
... e jogos, que ninguem k de ferro. 

Todos em portugues, gravados em cassette ou diskette, com manual do 
usuArio, extremamente pr&ticos. 

Estamos ao seu alcance. 

Confira. Solicitando por telefone ou no revendedor de sua cidade, relapao 
de programas disponiveis. 

monk micro informatica ltda. 

R. Augusta, 2690 2.° andar Loja 318 
Tel. (Oil) 852 2958 cep 01412 SP 



monk, 

o software que faz voc& ficar 
feliz por ter urn micro. 



Livros 



ftOGfltK) COSTA PC Ilf IRA 



COMPUTES, 

GRILO.' 

C0MPUTAD0R PARA T00AS AS I0A0ES 



PEREIRA, MM 
Rogdrio Costa, 
Computes, Grilo! 
Computador 
para todas 
as idades, 1 
Livros Tdcnicos ™ 
a Cientfficos 
Editors, 

Cr$ 2.600,00 (Jul/83). 



Computes Grilo deve ser encarado como uma incur- 
s§o no mundo do computador que produz alguns esclare- 
cimentos de ordem t£cnica dqueles que nenhum conheci- 
mento tern sobre computapio. 

Pretendendo atingir o universo dos jovens acima de 
dez anos, sem experiencia anterior em computapSo e que 
j£ tenham completado ao menos a 4? s6rie do primeiro 
grau, a abordagem do tema 6 por vezes simplista, inclusi- 
ve na forma de apresentapao dos conceitos. 0 que n3o 
exclui o seu uso por qualquer pessoa que queira receber 
uma nopao inicial sobre computadores. 

Segundo o autor, o objetivo principal do livro 6 dar 
ao leitor uma base ao mesmo tempo conceitual e prStica 
que estimule de forma explfcita o desenvolvimento do 
raciocfnio Idgico, e facilite, no futuro, uma inevit^vel in- 
terapSo com os computadores. 

O estudante n§o precisa ter maiores conhecimentos 
sobre a linguagem BASIC para ter acesso ao livro, mas 
deve ter d sua disposip5o um manual de referenda para 
eventuais consultas. Igualmente, nao 6 necesscirio que ele 
conhepa o computador com que vai operar, mas certa- 
merte vai necessitar de orientapSo previa sobre como 
usa 1 ', por exemplo, o vfdeo e o teclado. 

A linguagem BASIC foi adotada da maneira mais 
simples e diddtica possivel. Mas o autor afirma quedife- 
renpas pouco significativas entre comandos e instrupoes 
BASIC usadas no livro e aquelas que devem ser usadas 
em equipamentos especfficos, "dificilmente afetarao o 
uso deste material". 

0 livro esta dividido em duas partes. A primeira parte, 
denominada de "programapSo", compreende explicapoes 
sobre o computador e sua utilidade. M a segunda parte 
mostra como o computador 6 empregado na pr£tica, ten- 
do como exemplo um sistema computacional utilizado 
por uma feibrica de automdveis. 

















Seduzido e abandonado. 



Esta e a historia do cavalheiro que comprou 
um microcomputador que ia resolver todos 
os problemas da sua empresa. 

O preeinho era bom e a con versa do 
vendedor, atracnte. Poucos dias depois ele 
descobriu que o equipamento n3o resolvia 
todos os problemas (pelo contrario, criava 
alguns novos) e pior de tudo, ao voltar a loja 
onde tinha comprado, percebeu que ninguem 
entendia realmente do assunto. 

Em outras palavras, ele foi lamentavelmente 
seduzido e abandonado. Mas nem tudo esta 
perdido: basta consultar a 
Microshop antes de comprar um 
microcomputador. 

A Microshop ouve antes de falar. 

Micros s&o formidaveis, desde que sejam 
recomendados exatamente para as suas 
necessidades. 



Porisso nds fazemos todo tipo de 
perguntas sobre a sua atividade, e o 
t rat anient o das informafdes para podermos 
acelerar o processo de tomada de decisoes. 
Nos achamos que quanto mais soubermos 
sobre o seu problema, mais facil e completa 
sera a nossa solucao. 

A Microshop da opinides sinceras. 

Trabalhamos com todas as m areas e modelos 
importantes e n3o temos interesse em 
“empurrar” esta ou aquela marca. Assim, 
voce tern a certeza de receber 
sempre um opinido independente. 

A Microshop resolve mesmo. 

Ao inv£s de um simples balconista bem- 
intencionado, nos atendemos voce com gente 
formada em Computer Science na 
Universidade de Nova York. 



Issoquedizer orieniav'&c 
inteligente e correta na escolha do 
software mais adequado (tambem 
desenvolvemos programas especificos para as 
suas necessidades). Significa tambem colocar 
a sua disposii'do nossa longa experiencia com 
profissionais liberais, empresas de pequeno 
porte e multinacionais. E mais: damos 
treinamento completo na utilizacdo dos 
micros e softwares. 

Venha conversar conosco. Nos podemos Ihe 
seduzir, mas n2o vamos nunca Ihe abandonar. 




A loja dos micros inteligentes 



Sao Paulo: Al. Lorena, 652 - CEP. 01424 -Tels: (Oil) 282.2105 - 852.5603. 
Recife: Av. Conselheiro Aguiar, 1385 - Loja 4 CEP. 50.000 -Tel.: (081) 326.1525 - Boa Viagem . 



MOSTRA DE TECNOLOGIA 

A segunda Exposigao de Tecnologia 
em Computagao — Extec, realizada pa- 
ralelamente ao III Congresso da Socieda- 
de Brasileira de Computagao, no final de 
julho em Campinas, Sao Paulo, mostrou 
em seus estandes o que instituigoes de 
ensmo e pesquisa de todo o pais estao 
desenvolvendo nessa area A Universi- 
dade Federal de Pernambuco, por exem- 
plo, apresentou um sistema para desen- 
volvimento com 8 Kbytes de memoria 
RAM e 5 Kbytes de EPROM, que utiliza 
memoria virtual, chegando a compilar 
programas de ate 256 Kbytes. A Umversi- 
dade pernambucana mostrou tambem o 
sistema operacional FILIA versao 1.4. 
que serve para a manutengao de arqui- 
vos em disco flexivel. orgamzados em 
um diretorio com ate 104 entradas em 
cada disquete; e um terminal de video 
com teclado standard e pena otica 

Ja o Laboratorio de Sistemas Digi- 
tais da Escola Politecnica da USP mos- 
trou o microcomputador pessoal JDM. 
que tern CPU com microprocessador 
8085. 16 Kbytes de EPROM e 16 Kbytes 
de memoria RAM Atualmente esta sendo 
desenvolvido no laboratorio uma expan- 
sao de memoria RAM para 64 Kbytes. 

No setor de empresas destacou-se o 
terminal de video grafico colorido. desen- 
volvido pela Scopus por encomenda da 
Embratel. O video tern resolugao de 240 
x 320 pontos e utiliza simultaneamente 
8 cores na tela, selecionadas de um con- 
junto de 64 O terminal possui recursos 
de zoom — que permitem ampliar a ma- 
gem em ate 16 vezes — e possibilita a 
movimentagao horizontal e vertical da 
tela atraves da capacidade de panning 
dentro da memoria grafica. 

NOVA DIRETORIA 
NA ASSESPRO 

A Assespro-Nacional, Associagao 
Brasileira das Empresas de Servigos de 
Informatica. elegeu a sua nova diretoria 
para o periodo 83/84. Na Diretoria-Exe- 
cutiva foi mantido Jose Maria T. C. So- 
brinho na presidency, sendo os demais 
cargos preenchidos por Mauro do Valle 
(Vice-Presidente), Jorge Araujo (Diretor- 
Secretario) e Haroldo Duarte (Diretor- 
Financeiro) A Diretoria Tbcnlca ficou as- 
sim constituida: Francisco Ramalho (Soft- 
ware). Alberto Custodio (Servigos). Edu- 
ardo Guy de Manuel (Treinamento). Os- 
car B Miranda (Recursos Humanos) e 
Jose Claudio de Oliveira (Atividades Go- 
vernamentais). Foi criada ainda uma As- 
sessors Especial composta por Antonio 
Barrio Junior (Desenvolvimento de Mer- 
cado). Nilton Trama (Desenvolvimento In- 
terno). Roberto Augusto da S. Araujo 
(Codigo de Etica). Paulo Kleber Pereira 
(Divulgagao Institucional) e Mauro Barto- 
lomeu Sebben (Coordenagao). 



UMA IMPRESSORA 
PARA DOIS MICROS 

A loja Microshop de Sao Paulo esta 
langando um chaveamento eletronico que 
possibilita a ligagao de dots microcom- 
putadores a uma mesma impressora. Tra- 
ta-se de um multiplexador que seleciona 
qual dos micros ira transmitir para a 
impressora. O novo chaveamento e adap- 
tavel a qualquer micro com interface pa- 
ralela padrao Centronics e seu prego e 
de 115 ORTN s. Este equipamento e en- 
contrado com exclusividade nas lojas 
Microshop. 




EXPORTANDO 

TECNOLOGIA 



MANUTENQAO 

A Sistema Ltda., do Rio de Janeiro, 
esta dando manutengao para compu- 
tadores Apple. TRS-80 (modelos I, II. Ill e 
Color). IBM PC. Sinclair (ZX-80. ZX-81). 
Microdigital (TK 82-C e TK 85). Spectrum, 
Microegenho, Unitron (AP II). Polynax 
(Maxxi). Kemitron (Naja), Digitus (DGT- 
100) e toda a linha da Prologica. 

Os contratos podem ser de duas mo- 
dalidades: manutengao preventiva men- 
sal ou assistencia tecnicaa panes even- 
tual. O orgamento e sem compromisso 
e gratuito, diz a empresa, quando o clien- 
te estiver localizado no centra da cidade. 



A Medidata Informatica e Tecnologia 
S.A firmou contrato de exportagao de 
tecnologia com a Nixdorf Computer, A 
G., da Alemanha Ocidental. um dos 15 
maiores fabricantes de computadoresdo 
mundo. O contrato da direito a Nixdorf 
de comercializar. principalmente nosEs- 
tados Unidos e Europa. o software basi- 
co MUMPS desenvolvido pela Medidata 
A empresa brasileira sera remunerada 
sob a forma de royalties, na base de uma 
porcentagem por equipamento vendido 
pela Nixdorf que. dependendo do volu- 
me de vendas. podera significar de US$ 1 
milhao a USS 3 milhoes ao longo de 3 a 
4 anos 



O COMPUTADOR E O GRANDE PUBLICO 



Afora os segmentos mais informa- 
dos a respeito. o computador ainda e 
objeto de desconhecimento e temor para 
a maior parte da sociedade brasileira. 
Esse fato foi constatado. pelo menos em 
Sao Paulo, pela agencia de publicidade 
Alcantara Machado. Perscmoto Comum- 
cagoes Ltda., na pesquisa O Compu- 
tador e Vocb. realizada no ultimo mes de 
julho. A pesquisa. feita atraves de entre- 
vistas domiciliares em X bairros da capi- 
tal paulistana. abrangeu uma amostra de 
400 pessoas divididas proporcionalmente 
entre homens e mulheres das classes A/B 
e C e duas faixas de idade. de 20 a 29 
anos e de 30 a 45 anos. e chegou a algu- 
mas conclusoes nteressantes. 

Provavelmente em virtude dos tem- 
pos dificeis que a economia brasileira 
vive hoje. duas das preocupagoes princi- 
pals manifestadas pelos entrevistados re- 
ferem-se aos problemas de emprego e 
financeiro. Do universo consultado. 59% 
acredita que o computador vai dimmuir 
as oportunidades de emprego. enquanto 
que a maioria das pessoas que gostariam 
de comprar uma dessas maquinas pen- 
sam em aplica-las em oontrole de orga- 
mento. contabilidade caseira e contas a 



pagar. A essas aplicagbes seguiram-se 
as de ensmo. lazer (especialmente jogos). 
usos pessoais tipo agenda e necessida- 
des de trabalho. 

Tambem revelou-se um desconheci- 
mento quase total dos entrevistados em 
relagao ao que e o computador e para 
que serve Praticamente nmguem sabia 
que o Brasil ja fabnca computadores e 
mesmo entre as pessoas que demonstra- 
ram interesse em comprar um. houve 
respostas bastante estapafurdias para 
justificar esse deseio. tais como fazer a 
limpeza da casa , "computar as ideias 
das pessoas '. computar minhas partes 
sensiveis e nao sensiveis' e saber se as 
pessoas da familia estao com o nome 
sujo 

Das 400 pessoas que responderam a 
pesquisa. menos de 0.5% ja possuiam 
computador em casa, 36% gostariam de 
ter, 8% nao sabiam e 57% nao estavam 
interessadas em comprar um compu- 
tador. Com base na pesquisa. a Alcan- 
tara Machado conclui que "havera ne- 
cessidade de um amplo programa de 
ensino e relagoes publcas para o com- 
putador se tornar um (...) produtodese- 
jado pelo mercado consumidor". 
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BRASIL TRADE CENTER 



CONSELHO 
DE INFORMATICA 



N 



Vender solugoes. constituindo-se 
mats numa software house que numa 
revenda de computadores. Essa e a filo- 
sofia seguida pelo Brasil Trade Center — 
Divisao de Computadores e Sistemas. 
loja recentemente maugurada no Riode 
Janeiro. De acordo com o engenheiro 
Everton Lamartine Matte a empresa. alem 
de desenvolver sistemas parametrizados 
capazes de serem adaptados com facili- 
dade as necessidades especificas dos 
tlientes. podera ainda comerciallzar pro- 
gramas de terceiros. devidamente depu- 
rados pela equipe da casa. com o obje- 
tivo de formar um banco de software 
bastante completo e diversificado Alem 
de comercializar equipamentos da Prold- 
gica, Polymax, Texas. Microdigital e tele- 
visores Sharp, o Brasil Trade Center ofe- 
rece tambem cursos especializados, for- 
necendo aos participantes documenta- 
gao tecnica e disquetes com software re- 
ferentes aos temas abordados. Entre es- 
ses cursos constam o de BASIC (basico 
e avangado), Sistemas de Gestao em 
Microcomputadores. Estatistica Aplicada 
e Recursos Graficos em Mmicomputado- 
res. O Brasil Trade Center fica na Av. 
Epitacio Pessoa. 280, Ipanema. Rio de 
Janeiro — RJ, CEP 22471, tels.: (021) 
259-1299/1499/1542. 



A Informatica brasileira acaba de ga- 
nhar mais um importante foro para dis- 
cutir os seus problemas e apontar possi- 
veis solugoes Trata-se do Conselho Per- 
manente de Informatica da Associagao 
Comercial do Rio de Janeiro, instalado 
dia 5 de agosto na 9ede da entidade 
Presidido por Jose Maria Teixeira da 
Cunha Sobrinho, tambem Presidente da 
Assespro-Nacional. o grupo e composto 
por 34 conselheiros representando. alem 
de empresas nacionais e multinacionais 
de Informatica, os setores de industria. 
comercio. empresas estatais, orgaos pu- 
blicos, a Umversidade e a Imprensa 

O Conselho. conforme frisou Sobri- 
nho. tern duas finalidades principals: 
"Tratar e propor Itnhas de agao para as 
questoes mais relevantes da Informatica 
e mcentivar a correta divulgagao da In- 
formatica. reconhecendo-a como um po- 
deroso instrumento a servigo da socie- 
dade e do desenvolvimento do Pais" 
Para atmgir esses objetivos. o Conselho 
possui seis comissoes tecnicas que irao 
abordar a Informatica em seus aspectos 
de desenvolvimento, divulgagao mstitu- 
cional. uso, servigos. software e industria 
de computadores e afins 



I nMUUlUw 

1 

• Tradupoes e versoes 
exciusivas para a 
comunidade de informatica. 

• Pioneiros no setor. 

• Manuais e publicapoes 
diversas. 

• Graficos. 

• Supervisao T6cnica de 
profissionais atuantes - 
analistas e consultores. 

• "Linguagens de alto nivel" 
aliadas a qualidade/ 
velocidade de entrega. 






traduqCes 

Informacoes 
pelos telefones: 
( 021 ) 264-6392 
264-7391 
228 2798 






STRINGS 



• A Microshop inaugurou mats uma fi- 
lial. desta vez em Campinas, no Shop- 
ping Iguatemi E para o final de setem- 
bro, esta prevista a abertura de outra 
loja. na Av. Pacaembu. Sao Paulo, capi- 
tal 

• A ProlOgica firmou convenio com o 
SENAC. colocando a disposigao da enti- 
dade microcomputadores para utilizagao 
em cursos de Informatica. Com esse con- 
venio. a empresa passa a colaborar na 
formagao de profissionais em cmco gran- 
des instituigoes de ensino de Sao Paulo. 

• O primeiro microcomputador 1-7000 
comercializado pela Itautec foi instalado 
no IMPA — Instituto de Matematica Pura 
e Aplicada, do CNPq, no Rio de Janeiro. 
O sistema sera utilizado como terminal 
IBM, em processamento distribuido, para 
edigao e compilagao de programas volta- 
dos as atividades de ensino e pesquisa 

• A Nasajon Sistemas langou seu Catd- 
logo Geral de Software Aplicativo, con- 
tendo a descrigao detalhada de 15 siste- 
mas e uma tabela de pregos dos 45 sis- 
temas de uso comercial. cientifico e pes- 
soal ja desenvolvido pela empresa 

• Ja foi implantada na Givaudan do Bra- 
sil. em Sao Paulo, a primeira versao do 



Sabii, primeiro software brasileiro de 
banco de dados relacional criado e de- 
senvolvido para minicomputadores pela 

SCI — Sistemas, ComputagAo e Informa- 
tica. 

• Mais uma empresa passa a mtegrar 
o Grupo Machado, composto pela Data 
Ribbon. Data Nova e Datrix. Trata-se da 
MR Computadores e Sistemas LtdS 
O grupo tambem acaba de colocar no 
mercado os disquetes Datadisk. de 5 
1/4' e 8", compativeis com todas as mo- 
dal idades de drives. 

• A Control Data do Brasil ja esta fun- 
cionando em sua nova sede no Rio de 
Janeiro, na Rua Voluntaries da Patria. 
301. Botafogo. CEP 22270. tel.: (021) 266- 
3222. 

• A colegao de jogos de videogame Odis- 
sey tern quatro novos cartuchos. Tres 
deles pertencem a sene esportiva e sao: 
Bilhar, Futebol de Salao/Hokey (dots jo- 
gos num so cartucho) e Esqui nos Alpes 
Na serie agao. esta disponivel o Duelo no 
Velho Oeste 

• A Tesbi Engenharia, que comercializa 
equipamentos da Digitus. Microdigital. 
Prologica e respectivo software, foi cre- 
denciada pela Polymax como soft house 




NAO SE ILUDA! . . . 



Na hora de comprar seu 
Minicomputador, Progra- 
mas, Impressoras, etc. 

Consulte quem joga 
aberto. Revenda autoriza- 
da da DIGITUS — MICRO- 
DIGITAL — DISMAC — 
POLYMAX. 

Tambem Manutenpao au- 
to rizad a DIGITUS. 
Comprove nosso atendi- 
mento! 

Prepo justo por servipo 
correto. 

TESBI ENG. TELEC. LTDA. 

RUA GUILHERMINA. 638 - ENCANTADO 
1 s^TEL. : (021 ) 591 -3297 e 249-31 66 
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CONTROLE DE FROTAS 



POLYMAX LANQA 
POLY 301 WP 




NOVO MICROCOMPUTADOR 
DA MICROCRAFT 

A Microcraft Microcomputadores 
Ltda langara, na proxima feira da Suce- 
su, o microcomputador AMC 6500. Ono- 
me do equipamento e provisorio, ja que 
' o definitivo sera escolhido a parti r desu- 
gestoes feitas pelas pessoas que visita- 
rao o estande da Microcraft na feira. 
O nome aprovado dara direito a um pre- 
mio para o autor. A configuragao basica 
do microcomputador e composta por 
CPU com microprocessador 6502, 64 Kby- 
tes de memoria RAM, interpretador BASIC 
residente em ROM de 10 Kbytes, duas 
unidades de disco de 5 1/4”, dupla face 
e dupla densidade, ja embutidos no prb- 
prio gabinete da CPU, teclado alfanume- 
rico, caracteres maiusculos e minusculos 
selecionaveis por software, e teclado nu- 
merico separado. O equipamento possui 
seis conectores para expansao. tern sai- 
da paralela para impressora, saida serial 
para modem, saida para joystick e para 
video a cores ou preto e branco. O AMC 
6500 e compativel em hardware e softwa- 
re com o Apple II e permite todas as pos- 
sibilidades de expansao do mesmo. 

SUPRIMENTO LTDA 

"Quebramos o seu galho." Este bem 
poderia ser o slogan da Suprimento — 
Materials para Computadores Ltda., nas 
palavras do seu diretor, Jairo B. Miszpu- 
ten. Isso porquea empresa carioca, com 
um enfoque bastante original de marke- 
ting, propoe-se a auxilar o cliente, so- 
bretudo o hobbysta, nos problemas difi- 
ceis de resolver, desde adaptar uma fita 
nacional para funcionar numa impresso- 
ra estrangeira sem similar no mercado, 
ou fomecer papeis fora de padrao. ate 
problemas relativos a aplicagoes em ge- 
ral. 

Jairo quer que a sua loja se converta 
num ponto de encontro entre hobbystas. 
onde possam trocar conhecimentos e 
experiences, colocar suas indagagoes 
na ‘‘caixa das duvidas’’ e encontrar solu- 
goes na "estante das ideias”. Alem de 
todo o tipo de material para micros, a 
empresa vende tambem equipamentos e 
uma marca de software para aplicagoes 
comerciais exclusivamente desenvofvida 
para ela. A Suprimento, que comegou a 
operar dia 10 de maio, fica na Rua Vis- 
conde de Pirajb, 550 Ij. 202, tel.: 274-8845, 
Ipanema, Rio de Janeiro. 



A Simicron — Sistemas Micronizados 
Ltda. acaba de langar o Sistema Simitrans 
de controle de custos operacionais de 
uma frota de veiculos. A partir dos dados 
fornecidos pelos fabricantes. relativos a 
vida util de determinados compo rentes, 
o sistema permite calcular o custo de um 
elenco de itens de um veiculo, previa- 
mente escolhidos pelo usuario. alem de 
possibilitar a execugao de um rigoroso 
programs de manutengao preventiva e 
corretiva e apontar problemas tais como 
pegas defeituosas fora das especifica- 
goes declaradas pelo fabricante e ma 
utilizagao dos veiculos. Ao final do perio- 
do, o sistema fornece o caiculo do custo 
por veiculo ou por frota relacionando o 
total por item e o total dos itens. O Simi- 
trans pode rodar na maioria dos micros 
disponiveis no mercado e requer pouco 
treinamento para sua utilizagao. A Simi- 
cron fica na Rua Pres. Carlos de Cam- 
pos, 190, Laranjeiras, Rio de Janeiro — 
RJ. CEP 22231, tel.: (021) 205-6597 e 205- 
7849. 



PACOTE KITSIS 

A Empresa Codesis, de Porto Alegre, 
acaba de colocar no mercado o Krtsis. 
Trata-se de um conjunto de programas 
incluindo contabilidade. estoque, contas 
a pagar e a receber, agenda de compro- 
missos e uma serie de jogos. Todos os 
proramas vem com manual explicativo e 
rodam em qualquer microcomputador da 
I inha Apple. O novo pacote esta sendo 
langado por aproximadamente Cr$ 90 
mil. 



LAN QAM ENT OS BYTESS 

A Bytess Digital Betronica e Infor- 
matics acaba de langar tres produtos no 
mercado: o Bytesspool, o Progswitche o 
TY-3000. O Bytesspool e um buffer para 
impressora com 64 Kbytes de memoria 
RAM. 2 Kbytes de EPROM, clock de 4 
MHz e funciona com microprocessador 
Z80A. O outro produto e o Progswitch, 
controlador de circuitos atraves de um 
relogio digital com 18 membrias que per- 
mite programar quando cada uma de 
suas quatro chaves devera ser ligada ou 
desligada. O sistema e a prova de inter- 
rupgao de energia eletrica, mantendo a 
programagao na memoria e a contagem 
do tempo por meio de uma bateria de 
nove volts que entra em agao quando a 
eletricidade e interrompida. Ja o TY-3000 
b um teclado de membrana padrao ASCII 
com 61 teclas. Com unidade de video, 
este teclado formara o terminal TY-3600. 
Os novos langamentos ja estao sendo 
comercializados. Maiores informagoes 
pelo tel.: (011) 210-7681, Sao Paulo. 



■■ 



A Polymax colocou no mercado } o 
microcomputador Poly 301 WP, voltado 
para o processamento de textos. e utili- 
zando o programa Polyscriba. A configu- 
ragao basica do Poly 301 WP apresenta 
CPU com memoria de 64 Kbytes e con- 
trolador de unidade de discos flexiveis. 
Cada disquete armazena 500 mil caracte- 
res. equivalente a 500 paginas datilogra- 
fadas. Compreende ainda um terminal de 
video e teclado alfanumerico com teclas 
especiais de fungao. Tambem pode ope- 
rar com fitas magneticas ou discos rigi- 
dos e impressoras de margarida. 

ITAU COMPONENTES 

O grupo Itau acaba de criar uma 
nova empresa, a Itau Componentes, que 
fabricara componentes para a industria 
eletronica, em especial para a microele- 
tronica. Como o Govemoanda nao deci- 
diu sobre a concessao de incentivos pa- 
ra este setor, o grupo Itau resolveu adian- 
tar-se e desenvolver o projeto com seus 
proprios recursos. O Diretor-Superinten- 
dente da nova empresa e Carlos Eduardo 
Correa da Fonseca. 

ELDORADO 

Ipanema, o bairro que detem a maior 
concentragao de lojas de micros no Rio 
de Janeiro, recebeu mais um reforgo: a 
Eldorado Computadores e Sistemas Ltda. 

A nova loja comercializa equipamentos 
da Prologica, Microdigital, Digitus e Spec- 
trum (Microengenho), alemde software e 
publicagoes nacionais e estrangeiras. 

A Eldorado fica na Rua Visconde de Pira- 
ja, 351 — lojas 213/214, CEP 22410, tel.: 
(021) 227-0791 

PARA CONFECQOES 

As confecgoes ja podem contar com 
um software desenvolvido especialmente 
para esse ramo de atividade. Trata-se do 
Confec, um programa elaborado pela 
software-house Promicro e que esta sen- 
do distribuido com exclusividade pela 
loja Imares, em Sao Paulo. 

O programa permite fazer, entre ou- 
tras coisas, a gestao de pedidos, gestao 
de mao-de-obra externa (no caso de cos- 
tureiras contratadas para trabalhar fora 
da fabrica), controle de clientes. controle 
de corte e etiquetas para identificagao 
do produto. 

Os sistemas, que compreendem os 
microcomputadores da Scopus e o soft- 
ware Confec, estao sendo comercializa- 
dos pela Imares por um prego na faixa* 
entre os Cr$ 7 e 10 milhoes. Quern levar 
somente o programa, pagara 360 ORTNs.^ 

£ 
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N AO CUSIA N ADA 
EXPERIMENTAR 



Sonar/Inspec. Voce 
precise conhecer esta 
novidade na area de 
Processamento de Dados. 
Um servlgo tao novo que 
nao ha nada parecido para 
fazer comparagao. Com um 
software sofisticado que vai 
facilitar sua vida. 

Imagine uma selegao 
quinzenal de literatura 
tecnica especial para voce. 



Quer um exemplo? 

Artigos internacionais com 
aplicagdes de software no seu 
campo. Ou com solugdes 
para problemas iguais aos de 
seus clientes. 

A lei do menor esforgo vai 
deixa-lo encantado com o 
Sonar/Inspec. Voce vai ver. 



E se ainda restarem 
duvidas, o Cin lhe da dois 
meses de experiencia. Depois 
disso voce paga 5 ORTN’s 
pela assinatura anual. 

Telefone para o Cin e pega 
material de inscrigao. Nosso 
numero e (021) 295-2232 
ramal 301. Se preferir, 
escreva ou envle um telex ao 
Cin. 



Comissao Nacional de Energia Nuclear 




OjriR, 






Rua General Severiano, 90 - Botafogo 
22294 - Rio de Janeiro • RJ - Brasil 
Tel.: (021) 295-8545 - Telex (021) 21280 CNEN BR 




Os micros da f am Hia TRS-80 ja nasceram com dotes musicais. 
De um empurraozinho que os "men i nos" vao longe. 




Do, Re... Micro 



Thelma V. T. da Fontoura 



ste artigo destina-se, pnncipal- 
mente, aqueles que, al£m de 

terem os microcomputadores 

como hobby, gostam de curtir um som e 
sabem, pelo menos, um pouquinho de 
musica. 

Este e o meu caso, e devo confessar 
que fiquei bastante entusiasmada com 
os recursos musicals do software 
Extended Color BASIC. Com ele, os mi- 
crocomputadores compativeis com o 
TRS-80 Color Computer (alem do pro- 
pno) conseguem tocar qualquer musica 
com um nivel de perfei 9 ao que eu julga- 
va quase impossivel para um compu- 
tador. 

0 comando que executa a musica 6 
extremamente simples, sendo possivel 
codificd-lo diretamente sobre a partitu- 
ra. Apesar desta simplicidade, ele nlo so 
toca como interpreta a musica, levando 
em considera^ao andamento, ntmo, 
intensidade do som, enfim, todos os 
fundamentos necessanos ao musico para 
uma mterpreta^ao bnlhante. 

Bern, voces jd devem estar curiosos 
para conhecer este comando milagroso. 
Sua estrutura 6 a seguinte: PLAY 
“string". O string 6 um conjunto de 



caracteres que contera as mforma^des 
musicals, sendo composto de diversos 
parametros. Vamos ver um a um. 

• NOTAS — SSo codificadas com as le- 
tras de A a G. 




C 0 E F C A B 



Se voce quiser uma nota com susteni- 
do, basta colocar o carater # ao lado da 
nota. Para tocar uma nota bemol 6 s6 
acrescentar o sinal — (menos). Com isto, 
podemos tocar qualquer nota da escala. 
Exemplo: 




• OITAVAS — Sdo codificadas com a 
letra 0 seguidas de numeros de 1 a 5, 
cada um representando uma oitava. A 
escala que acabamos de ver estd em 02. 
Qualquer nota mais aguda ou mais grave 
podera ser tocada se precedida da oitava 
a que pertence. 

• DURAQAO DA NOTA OU TEMPO 

- £ codificada com a letra L seguida de 



numeros de 1 a 255. 0 valor basico e L4 
(seminima) que tern o tempo igual a 1, 
valendo 1 4 de nota. As dura^des usuais 
s3o: 

Semibreve ( O ) =L1 
Minima ( J ) --L2 
Seminima ( J ) -L A 

Coicheia ( j\ ^-L8 

Semieoldieia ( ) LI 6 

Fusa ( /) -L32 



Semifusa ( 0 ) 1.64 

Se voce tiver notas pontuadas em sua 
musica, basta acrescentar um ponto ao 
parametro L e ele terd o mesmo efeito 
que na partitura, isto 6, acre seen tara a 
dura 9 §o da nota metade do seu valor. 
Por exemplo: 




Utilizando o ponto, voce poderd re- 
solver tambem eventuais problemas co- 
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mo o de notas iguais ligadas, como na 
seguinte frase: 




E se aparecer uma dura^o de nota 
diferente das ja citadas, pode-se fazer 
uma continha e chegar ao valor corres- 
pondente de L. Vejamos: 




Cada nota vale 1/3 de seminima (L4 = 
1/4 de nota), entao: 

1*1 = 1 

3 4 12 

Concluimos que a dura^ao de cada 
nota do exemplo 6 LI 2. 

Alem disso, caso queira fazer um 
staccato, basta dar ao L um valor alto, 
digamos, L255 e completar o tempo da 
nota com uma pausa. 

• PAUSAS - SSo codificadas com a 
letra P seguida de um numero de 1 a 255, 
obedecendo as mesmas regras de dura- 
9 §o da nota L. 0 parametro P apenas 
nao admite o uso do ponto; voce pode 
colocar duas ou mais pausas P’s) para 
identificar uma pausa pontuada. Exem- 
plo: 




As pausas usuais sao: 

Semibreve (™ ) =P1 
Minima ( ■■ ) -P2 
Seminima ( J ) -P4 
Colcheia ( 7 ) =« 

Semicolcheia ( ^ ) - PI 6 
Fusa ( Sj ) -P32 
Semifusa ( ^ ) =P64 

• ANDAMENTO OU RITMO - £ co- 

dificado com a letra T seguida de nume- 
ros de 1 a 255. De acordo com o anda- 
mento descnto na partitura, ou o que 
voce prefenr, fornesa o T adequado. Pa- 
ra musicas mais lentas use valores meno- 
res para T e, para mais rdpidas, valores 
maiores. Desta forma, Alegro = T5 e 
Moderado =T2. 

• INTENSIDADE OU VOLUME - £ 

codificado com a letra V seguida de 
numeros de 0 a 31. Para dar enfase a 
execu<;ao da musica, aumente ou dimi- 
nua o valor de V de acordo com a parti- 
tura ou com a sua sensibilidade. Sena 
algo como: # =V31 ; P = VI 5; f * V5. 

Uma vez fomecido um parimetro 
(exceto a nota), ele permanece vdlido 
para todas as notas que o seguem, sendo 
modificado apenas quando se der outro 
que altere o seu valor. No comando se- 
gumte, 



PLAY "L4;C;D;E;F;L2;C;A;B" 

as notas C, D, E e F serao tocadas como 
se minim as (L4); G, A e B como mini- 
mas (L2). 

Outra coisa que deve ser observada 6 
que, como o PLAY executa um string, 
podemos defimr, em nossos programas, 
diversas vanaveis string contendo partes 
da musica, dividindo a partitura de acor- 
do com a nossa convenience (quantida- 
de de caracteres de uma linha, trechos 



repetitivos da musica etc.). Depois e s6 
comandar: PLAY string. 

A TEORIA NA PRATICA 

Com estes parametros, creio que 
abrangemos todos os recursos necessd- 
nos a execu^ao de qualquer musica, des- 
de um Noturno de Chopm at£ um Cho- 
nnho de Ernesto Nazareth, passando 
pelo Samba, Jazz e at£ compondo nos- 
sas prdpnas musicas. 



PRINT 8 32, 
PRINT 8 96, 
PRINT 8 128, 
PRINT 8 192, 
PRINT 8 288, 
PRINT 8 332, 



Apanhei-te Cavaquinho 



" APANHEI-TE, CAVAQU I NHO 1 " 

(CHORO) " 

* ERNESTO NAZARETH - BALDONAM" 

* VERSAO PARA 0 COLOR- 64" 

» THELMA VANDERLINDE" 

8 PRINT 8 416. “**•**»**«•*******••*•******•»**•" 

10 A**"T35 L16! 04; GF#EEDC#DF#EDCC5 035 BA4B5 04: EDC; 035 BBAG4AS 04 S DC 1 03 1 BAAGF55G5 04; C5 
03S BAGF#ED*EAGF#E" 

20 B*="EDC#DEF*GABS 04; CC#DF#EDC5 035 A#B; 04 5 ED; P165 GF#EEDC#DF#EDCC; 03; BA#B; 04 s EDC5 



035 B" 

30 C*="BAG#A5 04 5 DCI 035 BAAGFttG; 04 5 CS 035 BAGF 55ED55EAGF 55EEDC4DEF ttGAB 5 045 CC#DD#EE#F 8 5 L 
45G5P16" 

40 D4 s *“L16S 03; B5 L325 04 ; DS LI 6; CS 035 BA4S B5 04 5 EF#G; 035 B5 045 G5 035 B5 045 G5 035 A#; 045 C55F 
#F#5 035 A# 5 04 5 F#5 03 s A#; 04; G; 03; AB5 045 F55F4; 035 A 5 045 F#5 03; A" 

50 E*=”04s F#S 03; GB5 045 Es P165 035 B5 L325 045 D5 L165 C5 035 BA4B5 045 EF4G5 035 85 04; G5 03; B; 0 

4 5 G5 035 B; 04; F#5 035 BS 04 ; ES 035 B5 04; D; 035 B5 045 D5 035 EF#5 04; CUE; 035 E5 04 5 CHS 035 E 5 04 5 C5 
035 D4FHB5 PI 65 B5 L32S 04 5 D5 L 165 CS 035 B" 

60 F*=“ A#B5 045 EF4G5 035 B5 04 5 G5 035 BS 045 Gs 035 A#S 04 5 C*F#F#S 035 A#5 04 5 F#S 03; A#S 045 G5 03 

5 AB5 04; F#F#5 035 A; 04s F#S 035 As 045 F 5 035 G55B5 045 E5 P165 L85 D#5 LI 65 EFs 035 AS 045 E5 035 AS 045 
D5 035 AS 04; C5 035 A" 

70 G4*"04 ; C 5 035 E6B5 P 1 65 L85 A# 5 L 165 BS 04 5 C5 035 BA4BS 045 ED4GF # 5 L4 5 E5 P16" 

80 H4="04SL16SGF#GAGEC5 035 AGEC5L8. 5 AS L 165 A; P8; L8S AS P165 G5 L16S ABS 045 LBS CS L165 D5 L8 
. SE5L165E5P85LB5E" 

90 I *="P165 L165 ED#EFED#ECES 03; Bs 045 ES 035 As 04 5 ES 03; G; 04 5 E; P16S DC5SDEDCWDED5 035 Bs‘04 
5 G5 P165 GF4G" 

100 J**"AGEC5 035AGEC5L8. 5 As L 1 65 P8S L85 As P165 GS LI 65 ABS L8S 04 5 C5 L 165 DS L8. SE;L16SE5P8 
; LB 5 E 5 PI 65 D#5 L 165 EFEDE5 L8. 5 A; Li 65 A 5 PBS L85 A5P165L165 GFD5 035 BGFDS L8. 5 CS 04 s L165C5P1 
6 ” 

900 X*="XA*SXB*5XC*S" 

901 Y»*"XH*5 XI*5 “ 

910 PLAY "V31 " 5 PLAY X*:PLAY X*:PLAY D* 5 PLAY E*5 PLAY F*:PLAY G*: PLAY D*: PLAY E*5P 
LAY F*: PLAY G* 5 PLAY X*:PLAY D* 5 PLAY E* 5 PLAY F* 5 PLAY G* 5 PLAY Y* : PLAY J* 5 PLAY Y*:P 

lay j*:play x*:play d*:play e*:play f*:play g* 

998 CLS 




1 CLS 



Noturno OP. 9N°2 



NOTURNO OP. 9 NUM. 2" 
J. F. CHOPIN" 
VERSAO PARA 0 COLOR-64" 
THELMA VANDERLINDE" 



2 PRINT 8 32,"* 

3 PRINT 8 96. " 

4 PRINT 8 160, " 

5 PRINT 8 288.” 

6 PRINT 8 332," 

7 PRINT 8 416, 

10 A*="V31 5 T2S 025 L85 B-5 03s L25 G; L85 FGS L4. 5F5L4 5E-5 025L85B-5 035L45G5L325CD-C5 025B- 
5 035 C5 045 L4; C5 03; L8S 65 L4. 5 B-5 L4 5 A- 5 L8; G“ 

20 B*»”L4. 5 F 5 L4 : G5 L85 D 5 L4 . 5 E~Cs 02; L8; B- 5 04 5 DC; 035 L 165 B-A-GA-CDS L4. 5 E-S P4; 025 L85 B 
-5 035 L4. 5 G; L 1 65 FGS L325 FGF 5 L 1 65 EFGS L85 F 5 L4; E-5 L165 E-F5 L325 E-FE-5 L165 DE-F” 

30 C*="G5 025 B5 03; CD-CFEA-G5 04 5 D-C5 035 GS L4. 5 B-5 L4; A-5 L8: G5 L 165 E; L64 5 FGFGFGFG5 L165 
EF5L85GGD5L4. SE-C" 

40 D*“"025 L8S B-5 045 DCS 03; LI 65 B-A-GA- 5 L325 A-5 L 165 CDS L4. 5 E- 5 L8S E-DE-J L4. 5F5L45GS L8 
5 F; L4. 5 FCS LB; E-E-E-E-5 L16S DE- 5 L 1 6. 5 Fi L325 E-5 L4 . 5 E-5 025 B-" 

50 E*»"035L4. 5 B~5 L4; A; L8S GS L4. 5 FDE-5 LBS DCD5 025 B-BB5 035 CCD" 

60 F*»”02i L16S GB- 5 035 E-5 L4S G5 025 LI 65 AB-BB-Q3S CttDS LI 6. 5 GS L325 F5 L4S F 5 L8. 5 E-5 LI 65 FS 
L325 E-FE-5 L16S DE-FG5 025 B5 035 CD-CFEA-G5 045 D-C5 035 G5 L4. 5 B-5 L4; A-5 L8; G" 

70 G»=*"L1 65 ES L64S FGFGFGFGS L 165 EF 5 L85 GGD5 L4. 5 E-C5 025 L85 B-5 04 5 DC# 5 L325 C5 035 BB-AA-F 
DS02SBB-S03SDGFE-5L4. 5 E-5 L85 E-DE-" 

80 H*»"L4. 5F5L45G5L85F5L4. 5 FC5 L85 E-E-E-E-E-5 L16S DE- 5 L 16. 5 F; L325 E-i L4. 5 E-5 025 B-” 
90 I*="035B-5L4S ASL85G5L4. 5 TDE-5 L85 DCD5 025 B-BBs 035 CCD" 

10O J*="02S L16S GB-5 035 E-5 L4s G5 02; L 165 AB-BB- 5 035 CttDS L 16. 5G5L325FSL45F; L8. 5 E-5 L 165 
FE-DE-FG5 025 B5 035 CD-CFEA- GS 04 5 D-C5 03; GGS L4 . 5 B-5 L4 5 A- 5 L85 G" 

1 10 K*="L165 ES L64; FGFGFGFGS L 165 EFs L8S GGD5 L4. 5 E-CS 025 L165 B-5 04 5 L85 D5 L 165 C#Ci 035 L3 
25B5L165B-A5L325 A- 5 025 AB -B5 03; CC4DGFE-5 L2. 5E-" 

120 L*="L4. ; E-5L85FE-F5L2. 5 G5 L4. 5 E-5 L165E-EE-FE-FG5 L32; CD-CS 025 B-5 035 C5 045 LBS E-D 
C" 

130 M*="035L45B-5L8S AA-CDE-5L 165 F5L325 E-FE-5 L165E-E-5 045 L85GSL 165 FE-DCi 035 L85BB- 
AS L 165 AA-A-6S L16. 5G5L325F5L2. 5 E- 5 L4. 5 E-5 L165 E-FE-FE-FE-F" 

140 N*»"L4. 5G5P45P85L85E 5 02s L 165 A-B-A-GA-B5 035 E-A- 5 045 E-5 P325 L325 FS 04; L85 GE-« 03 
; L4s E- 5 L8S DCBS 04 5 B-AA-GDE-5 035 L4. 5 E-5 04; L85 FS 035 C" 

130 0»="045L2. 5BB-" 

160 P* * " 04 5 L 1 6 5 BB- 5 03 5C5045A" 

170 0*="04; L165 BB- 5 035 DC; 04 5 B AA-GFDE-C5 035 LBs B-A-CDE-5 025 B-5 035 GE-S 02; B-5 035 GE- 
5 025 B-5 035 G5L4. 5 E-5 045 E 5025L2. 5E-" 

1000 PLAY A*: PLAY B* 5 PLAY C*:PLAY D* 5 PLAY E* 5 PLAY F* 5 PLAY G*:PLAY H*: PLAY I*:PLA 

Y : PLAY K*5 PLAY L*5 PLAY M*5 PLAY N»:PLAY 0*5 PLAY P*:PLAY P*:PLAY P»:PLAY P*:PLA 

Y .P* 5 PLAY P*:PLAY PCPLAY P*:PLAY P»:PLAY P* 5 PLAY P4:PLAY P*:PLAY Q* 

1010 CLS 
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d6, r£... micro 



Para mostrar como 6 simples codifi* 
car uma musica apresentamos, na figura 
1, um pequeno trecho de “Garota de 
Ipanema”, cuja listagem esta na figura 2. 

Este trecho de programa estd codifi- 
cado exatamente de acordo com a pauta 
musical. Por6m, voce pode modificd-lo, 
adequando-o ao seu gosto. Eu, pessoal- 
mente, prefiro execut^-la uma oitava 
acima (trocando todos os parametros 0 
para um numero imediatamente acima. 
Por exemplo: passei 02 para 03 e 01 
para 02). 

Finalizando, voce poderd sentir me- 
lhor os resultados rodando estes dots 
programas que apresentamos a seguir: 
um refere-se a musica “Apanhei-te Cava- 
quinho”, de Ernesto Nazareth e o outro 
ao “Notumo OP. 09 N? 2”, de Chopin. 




Figura 1 - " Garota de Ipanema ” - pauta musical codificada 



Thelma V. T. da Fontoura 4 Analista de Sis- 
tarn as pa I a PUC-RJ. £ formada tambdm am 
F idea pala Faculdada de Human id ades Pedro 
II a am Musica (Piano! pak) Conservatdrio 
Brasileiro de Musica. Trabalha atualmanta 
como Coordenadora de Projetos da Nab la En- 
genharia a assessors a empress Industrie a Co- 
mdrcio de Computadores Novo Tempo Ltda. 
na pesquisa a desen volvimen to de software 
para composipSo de mdsicas atravds de mi- 
crocomputadores. 



100 A*="V 31 1 T 3 J 021 L 4 . ; Gs L 8 s E; L 4 ; E: L 8 : D: L 4 . iG;L 8 ;E.L 4 ;E;L 8 ;S; D: L 4 . j 
L 4 lG M 

110 B*»''L 85 G«E;L 4 .E 1 L 8 S EsD;L 4 ;F;DsD!L 8 ;D 5 C*L 4 :EsC 5 C« L 8 ; Cs 01 S L 4 s B-" 
120 C*»"P 4 ; 02 ;LllC!P 2 “ 

130 PLAY A*: PLAY BC PLAY C* 

140 CLS 



G;L 4 ;e:E;L 8 :D; 



Figura 2 - "Garota de Ipanema ” - listagem do programa 



KALHAU ENGENHARIA, 

A MAIS COMPLETA LINHA DE 
MICROCOMPUT ADORES. 



TK-85 

• Linguagem BASIC 

• 10 Kbytes de ROM 

• 16 ou 48 Kbytes de 
membria RAM 

• 40 teclas e 160 fun^oes 



f APPLY 300: 

• Microprocessador Z80-A 

• Linguagem BASIC 

• 8 Kbytes de RAM 

• 69 teclas tipo membrana 
flexivel com 160 fun^oes 
32 ou 48 Kbytes de RAM 




it 

J X <■ 1 u. k. 



CLRSOS: 

Basic Basico, 

Basic Avan^ado, 
CPM/DOS e Assembler. 



OUTRAS MARCAS 



SCHUMEC — DIGITUS 



TK-83 — TK-82 



J. R. DA SYSDATA 



• Aplicativos • Utilitarios • Perifericos 
• Acessorios • Lite rat ura Tecnica • Jogos 

Despachamos para todo o Brasil. 



KALHAU ENGENHARIA LTDA. 
Prapa Tiradentes, 10 sala 402 
Cep. 20.060-Rio de Janeiro 
Tel. (021) 252-2752 



e App ' e ’ 
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I.'Sy um sisterna 
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0 * ** P" 1 S QU er pes*° a “C micro na 

Srman'Poi^og^ce “ la ' a ',“S nottasil. Fa • 

inclusive. ser ge m. Com* ^ ex.stente no lS ApP >e. 

dos c 

atravfes do Wfl- 






recebecetc. 



SS*~ conv 



Jwcy 

/UR l " ,„ai.no?o»«v’. &?«..«»> 



MICRO SISTEMAS, setembro/83 














Conheca 
todas op^oes 
ern micro. 

Conheca 

a Gomputiqua 



So no Brasil sao produzidos atualmente mais de 
30tipos de microcomputadores. Todos com 
caracteristicas proprias, com softwares e 
perifericos especificos. 
Antes de comprar o seu, voce precisa analisar 
todas essas op^oes. Ou pode, simplesmente, 

procurar a Computique. 
A Computique fala a sua lingua, ajudando voce a 
escolher o equipamento e o software corretos. 
Oferecendo publica^oes especializadas e toda 
orientagao tecnica que voce precisar. 
Mostrando, de forma clara e objetiva, tudo que o 

micro pode fazer por voce. 
Na hora de escolher o seu micro, fale com quern 
entende. Fale com a Computique, a opgao total 

em microcomputagao. 



(gmputique 

O micro sem segredos. 

Sio Paulo: Rio de Janeiro: Campinas: Po^os de Caldas: 

Av. Angelica, 2578 Av. N. Sra. de Copacabana, 1417 Rua Conceigao, 224 Rua Prefeito Chagas, 252 

Fone (01 1)231.3922 L. 303/304 - Fone (021) 267.1093 Fone (0192) 32.6322 Fone (035) 721.5810 






Por que desperdigar as duas ultimas linhas de impressao na tela? 
Se vocS tem um TK, NE, ZX ou CP-200, ve/a como recupera-las. 



Abrindo espa?o na tela 

Renato Degiovani 



u ant as vezes, durante a execute* de um programa, 
il n 6 s ficamos sem espa^o na tela para a impressao de 
_ J um dado? Muitas, nao? Apesar das especifica^es tdc- 
nicas quanto ao formato da tela (24 linhas por 32 caracteres), 
as duas ultimas linhas nao estao disponiveis ao usuario, e o ma- 
nual do computador nos in forma que 6 impossivel imprimir 
alem da linha 21 . 

Isto se da porque as hnhas 22 e 23 sao reservadas para a en- 
trada de dados, ou seja, quando alguma coisa e digitada, esse 
dado sera primeiramente col oca do nessas linhas, e somente 
ap 6 s o ENTER e que ele sera processado pelo computador. Is- 
to 6 muito bom para escrever ou editar programas, mas perde 
o sentido quando o programa esta sendo rodado. 

Nossa convivencia com o computador nos mostra que rara- 
mente um programa utiliza dados que precisem mais do que 30 
caracteres. Entffo, por que perder o espa^o de duas linhas? 
Mas, amda que tenhamos razdo, basta tentarmos rodar o pro- 
grama 20 PRINT AT 23,8;“ AQUI ESTA ELA”, que o resulta- 
do sera uma mdica^ao de erro 5/20 (falta de espafo na tela 
quando foi executada a linha 20 ), e nao ha forfa no c£u ou na 
terra que mude isto. Sera que nflo? 

Acrescente a este programa a seguinte linha: 10 POKE 
16418,0 e rode-o novamente. Como por encanto..., aqui esta 
ela. Agora calma, nao vamos pensar que temos tudo sob con- 
trole, pois o computador preparou algumas armadilhas para os 
espertmhos: se acrescentarmos uma linha 30 INPUT US, o 
resultado sera catastrdfico! 

Vamos, entao, tentar entender o que aconteceu. O numero 
16418 6 o endere 90 de uma vanavel do sistema chamada 
DF-SZ (isto esta no manual). Ela cont^m o numero de hnhas 
na parte inferior da tela; logo, esta vanavel estard reservando 
sempre duas hnhas para a entrada de dados. O que n 6 s fize- 
mos foi informar ao computador que nenhuma linha devena 
ser reservada, e assim, as 24 hnhas ficaram disponiveis para se- 
rem usadas. 



E por que INPUT nao fundonou? Porque o computador fi- 
cou procurando um espa 90 para a entrada de dados e nao 
achou (a mais ou menos isso). Mas esse problema 6 fdcil de ser 
soluaonado: basta utihzarmos a fun^o INKEYS ao invds da 
instru^o INPUT. 

INPUT X INKEYS 

A instrusSo INPUT intenompe o processamento, mostra o 
display e aguarda a entrada de um dado. Ja a funfao INKEYS . 
apenas le o tedado e assume o carater, em modo de opera^do 
L, correspondente a tecla que estava sendo pressionada no mo- 
mento em que a fun^o foi executada. Se nenhuma tecla for 
pressionada neste exato momento, perde-se a chance do com- 
putador aceitar um dado. 

Para simularmos um INPUT, teremos que garantir um dado 
na fun^o INKEYS. Para tal, podemos utihzar a mstru^o 
PAUSE, cujo argumento.se for supenor a 32.767, intenompe- 
rd o processamento para sempre, ou atd que uma tecla seja 
pressionada. Se INKEYS estiver logo apos PAUSE, entfo esta- 
rd garantida a leitura da tecla pressionada pela fun 9 fo IN- 
KEYS. 

Assim, acrescentamos ao programa as linhas: 

30 PAUSE 4E4 ( 4E4 e lgual a 40.000) 

40 LET U$=INKEY$ (a tecla que for pressionada sera 

50 PRINT AT 23,0;U$ armazenada na variavel U$) 

60 GOTO 30 

Amda ndo estd fundonando como INPUT, certo? Dai, da 
para perceber que teremos que escrever um programa maior; 
logo, gastar mais memdna. Serd realmente vdhdo trocar uma 
funfko INPUT, que ocupa aproximadamente sete bytes, por 
uma rotina de 200, 300 ou atl mesmo 500 bytes? 

Se temos que escolher, i bom lembrar : em que pese o maior 
gasto de memdria, a fun?db INKEYS, como entrada de dados, 
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abre uma sdne de possibilidades na forma como esses dados en- 
trardo no computador. Podemos atd mesmo criar o nosso sis- 
tema particular de entrada, com cursores personalizados, li- 
mitede caracteres, cone 9^0 automdtica de erro e muito mais. 
Basta ter um pouco de imagmajdo. 

Para substltuir INPUT, podemos lanfar m2o de duas reti- 
nas. A primeira delas estd na figura 1 . Esta retina imprime um 
“ > ” indicando onde se iniaa a lmpressdo dos caracteres que 
forem sendo digitados (30 no mdximo). A linha 9000 posicio- 
na o “ > ”, o qual pode ser colocado em qualquer lugar, lem- 
brando apenas que a coluna 30 serd sempre o ultimo cardter 
aceito. A partir dai, o sistema remiaara a impressdo na pri- 
meira posifdo vdlida. 



9000 PRINT AT 23,8; 

9010 LET L=PEEK 16398+256 *PEEK 16399 
9020 LET U$ = "" 

9030 FOR L=L TO L+5 
9040 POKE L, 19 
9050 PAUSE 4E4 
9060 LET U=CODE INKEY$ 

9070 IF U=118 THEN GOTO 9000 

9080 POKE L,U 

9090 LET U$=U$+CHR$ U 

9100 NEXT L 

9110 RETURN 



9000 


PRINT AT 23,0; 


' i 


9010 


LET L=PEEK 16398+256 *PEEK 16399 


9020 


LET K=L 




9030 


POKE L, 4 




9040 


PAUSE 4E4 




9050 


LET U=CODE INKEY $ 


9060 


IF U=118 THEN 


GOTO 9180 


9070 


IF U=119 THEN 


GOTO 9150 


9080 


IF U=115 THEN 


GOSUB 9130 


9090 


POKE L,U 




9100 


LET L=L+1 




9110 


IF PEEK L=118 


THEN GOTO 9000 


9120 


GOTO 9030 




9130 


LET U=0 




9140 


RETURN 




9150 


POKE L,0 




9160 


LET L=L-1 




9170 


GOTO 9110 




9180 


LET U$=" " 




9190 


FOR L=K TO K+30 


9200 


IF PEEK L=4 THEN GOTO 9230 


9210 


LET U$=U$+CHR$ 


PEEK L 


9220 


NEXT L 




9230 


RETURN 





Figura 1 - Sub-rotina 1 

A linha 9010 armazena - em L e depois em K - o endere- 
90, no display, do primeiro item ap6s o “ > ” (no NE-Z8000 
esta vandvel 6 chamada DF-CC; no TK82-C, POSPR). Fizemos 
isso para que puddssemos usar o POKE ao invds do PRINT, 
jd que a impress£o com POKE i quase instantanea. 

A linha 9030 representa o cursor. Este pode ser alterado, 
bastando que seja substitui'do por qualquer cardter como tal 
(neste caso, a linha 9200 tamtam deverd ser alterada). 

ENTER e DELETE (NEWLINE e RUBOUT no TK) funcio- 
nam normalmente, mas SPACE nSo pode ser usado, pois m- 
terrompena o programa na linha 9050. O espa90 6 dado com 
SHIFT 5 (cursor para a direita). A retina 6 chamada com 
GOSUB 9000 e retoma com o dado de entrada na vandvel 
US. Se a entrada for um dado numdnco, pode-se usar LET 
U=VAL US. 

Vejamos as vandveis utilizadas (ndo as use no seu programa 
principal, pois elas serdo alteradas): 

L - Endere^o de impressao do cardter recebido do teclado 
K - Enderepo do inicio da impressdo 
U - C6digo do cardter digitado 
US- Cadeia ( string ) de saida 

Passemos agora d segunda retina (figura 2). Como podemos 
observar, ela 6 bastante semelhante a anterior, pordm s6 pro- 
oessa dados com um detemunado numero de caracteres (neste 
caso, os dados devem ter seis caracteres de comprimento). 



Figura 2 - Sub-rotina 2 

A linha 9030 determina o tamanho do dado de entrada, po- 
dendo ser alterada at 6 um mdximo de 30 caracteres. Quando 
terminar o loop, o sistema retoma com a vandvel US pronta 
para ser processada. Nfo hd necessidade de usar a tecla EN- 
TER. Esta 6 usada apenas para corre^es; ao ser pressionada, o 
sistema reinicia a opera 920. 

Nesta segunda rotma, utilizamos as segumtes vandveis: 

L - Endere?o de lmpressdro dos caracteres 
U - C6digo do cardter digitado 

US — Cadeia ( string ) de saida ■ 



Rena to Degiovani i formado am GomunicapBo Visual e Desenho Indus- 
trial pa la Pond f Ida Universidade Catdlica do Rio de Janeiro. Hi mais 
de um ano utilize o NE-Z8000 para dlculos na irea em que atua. 
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Kristian 



_ MICROCOMPUTADORES 

DGT-100 CrS 240.000, x 3 — Gratis 18 ioflos 

CP-200 Crf 1 10.000, x 2 — Gratis 6 logos 

TK85 Crf 89.925, x 2 — Gratis 6 jogos 

TK82-C Crf 49.925, x 2 — GrAtis 6 jogos 

amda: UNITRON Ap II. Mem 64 K. 

Joystick, Impressoras, etc.. 

(Prei;os sujeltos a moditicagOes) 



PROGRAMAS PRONTOS EM FITAS 






> VISITA AO CAUINO 
• MIDWAY 

« PASSAGEM PARA 
O INFINITO 

> 10 JOGOS 
EXCITANTES 
PARA 1 K 






V DIMENSAO 
JORNADA NAS 
ESTRELAS 
E MUITO MAISI 



JOGOS: 

• SCARFMAN 

• PENETRATOR 

• SUPERNOVA 

• VIAGEM A VALKYRIA 

• ASILO 1 

• AVENTURAS 

• DEFENSE COMMAND 

• E MUITO MAIS 1 



LEASING E CREDITO DIRETO! 


LITERATURA 

• MICRO-SISTEMAS 

• INTERFACE 

• JORNALTK-CP 

• IMPORTADOS 


+ CURSOS DE BASIC 

GRATIS 

NA COMPRA DE QUALQUER MICRO 



DESPACHAMOS PARA TODO O BRASIL! 



APLICATIVOS 

• CONTROLE DE ESTOQUE 

• CONTAS A PAGAR/RECEBER 

• MALA DIRETA/CADASTRO 

• FOLHA DE PAGAMENTO 

• ViDEO-CLUBES 

• ESTATlSTICOS 

• SOFTWARE SOB ENCOMENDA 
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Aprimore os arranjos musicais em seu micro variando a frequencia, 
o intervalo e a duragao das notas musicais. 



0 som (mais harmonico) 
de seu Apple 

Evandro Mascarenhas de Oliveira 



o n9 20 de MICRO SISTEMAS 
(edi 9 So de maio/83), foi publi- 
cado urn artigo de Rudolfo Hor- 
ner Jr., intitulado “0 som nosso de cada 
micro” (da pag. 26 a 28), que orienta 
quanto k produ^ao de musica nos mi- 
cros da linha Apple (como AP-II, Micro- 
engenho, Maxxi e Magic). Este trabalho, 
no entanto, apresentou um tempo fixo 
de dura£3o das notas musicals, o que 
nio possibilita um arranjo musical mui- 
to perfeito. Isso pode ser visto na linha 
210 de seu programa: 

210 POKE 6,CN(NT) t POKE 7,7* i 
CALL 768 

onde POKE 7,75 controla o tempo de 
dura 9 ao da nota, que foi fixado pelo 
valor 75, mantendo-se, assim, constante. 

O programa ora apresentado, que ge- 
ra a musica Cidade Maravilhosa , propo- 
se a vanar a frequencia, o intervalo e a 
dura^ao das notas musicais, conseguindo 
deste modo maior harmoma na musica 
produzida. 

ENTENDENDO 0 PROGRAMA 

As linhas 10 e 20 do programa Cida- 
de Maravilhosa introduzem a rotina em 
hnguagem de m3quina responsavel pela 
gera 9 ao do som pelo computador. J £ as 
linhas 30 e 40 introduzem o codigo das 
notas musicais na variavel indexada CN. 
As figuras que mostram a rotina em lin- 



gua gem de maquina e o codigo das notas 
musicais sao, respectivamente, as figuras 
1 e 2 do artigo refendo antenormente 
(pags. 27 e 28, MS n9 20). 

As linhas 50, 70, 90 e 1 10 represen- 
tam os codigos das frequences das notas 
musicais (numeros de 1 a 9, referencia- 
dos nas posi 96 es da variavel CN), o tem- 
po de dura^ao entre as notas (numero 0 , 
referenciado pela dura^o do loop da h- 
nha 1040) e o tempo de dura^ao de ca- 
da nota (letras de A a I, referenciadas da 
linha 1060 a 1140). Cada uma dessas 
linhas corresponde a um trecho da mu- 
sica. 

Vamos explicar, agora, a sub-rotma 
lmciada na linha 1000. Nesta linha, o 
loop vai de 1 atd o compnmento da 
string NS (LEN(N$) ),oqual represen- 
ta o trecho musical codificado, com m- 
tervalos de dois em dois (STEP 2). Deste 
modo, o loop separa da string original 
NS, as tres substrings B$, C$ e D$, 
que sao: 

• BS - substring que contem um 
career num^rico (de 1 a 9) pa- 
ra cada frequencia da nota, um 
0 que controla o tempo de exe- 
CU 9 I 0 entre notas ou um car- 
ter alfaWtico (de A atd I) que 
controla o tempo de dura 9 ao 
de cada nota. Assim, na string 
NS da linha 50, a cada mcre- 
mento do loop , 6 separada 



sequencialmente a substring 
BS: 9F, 7F, 5G, 00, 00 ... 00 
(linha 1010 ); 

• CS —substring que separa o carater 

numenco da BS. Assim, quan- 
do BS e 9F, CS sera 9; quando 
BS 6 7F, CS serd 7 etc (linha 

1020 ); 

• D$ -substring que separa o carater 

alfaWtico do BS. Entao, quan- 
do BS 6 9F, DS sera F; quan- 
do BS 6 5G, DS sera G etc (li- 
nha 1030). 

Na linha 1050 da sub-rotma, NT re- 
toma o valor numenco da substring CS 
(NT =VAL (CS) ), que sera usado na li- 
nha 1150, em POKE 6 , CN (NT), para 
indicar qual a nota a ser tocada (codigos 
da variavel CN). 

Da linha 1060 a linha 1 140, cada ca- 
rter alfabetico de DS dara um valor pa- 
ra a vandvel CC (de 30 a 255), que sera 
usado na linha 1 150, em POKE 7, CC, 
para controlar 0 tempo de dura 9 ao de 
cada nota. 

Portanto, a linha 1150 dard a fre- 
quence da nota em POKE 6 , CN (NT), 
a dura 9 fo da nota em POKE 7, CC e 
chamara a sub-rotma introduzida pelas 
linhas 10 e 20 , responsdvel pelagera^o 
de som, em CALL 768. 

A linha 1040, atrav^s do loop FOR 
L - 1 TO 80 : NEXT, controla o tempo 
de dura 9 ao entre as notas da seguinte 
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forma: para cada grupo de dots zeros 
(00) de NS, ha urn retardo dado pelo 
tempo de execu^o do loop. Para do- 
brar, tnplicar etc este tempo, basta adi- 
cionargrupos de dois zeros na string NS. 

Deve-se observar que NS tern sempre 
numero par de caracteres (grupos de 
dois), sendo que um e numerico e outro 
alfatetico (respectivamente, frequencia 
e dura^ao de cada nota) e grupos de dois 
zeros (00), para o intervalo entre as no- 
tas. Caso NS fique com numero l'mpar 
por omissao de algum carater, o compu- 
tador ermtira um som de baixa frequen- 
cia, facilmente perceptive!, indicando 
que falta um carter para tornar a string 
par. 

considera^Ces finais 

0 numero maximo de notas e nove 
(de 1 a 9), ficando o zero para controlar 
o tempo de duraijao entre as notas. 

O tempo de dura^ao da nota vana, 
neste programa, de 30 em 30, mas pode 
ser modificado para outros valores a cn- 
teno do programador. 

Se a musica contiver mais de nove 
notas diferentes, o programador tera 
que modificar a codifica^ao, trocando a 
numenca da frequence de cada nota pela 
alfabe'tica e colocando a dura?ao das no- 
tas com a numenca ou outra codificacao 
qualquer, de acordo com sua vontade. 



A sub-divisSo da musica em vanas 
strings NS facilita a sua codifica^ao, 
pois permite a corre^To de intervalos en- 
tre notas e de dura^o das notas mais fa- 
cilmente do que se colocassemos toda a 
musica em uma unica string. Por outro 
lado, uma unica string ficana limitada 
ao maximo de 255 caracteres, o que fa- 
talmente obrigaria a feitura de outra 
string para continuar a codifica^ao. 



Evandro Mascarenhas de Oliveira A mAdico e 
exerce suas atividades em Laboratdrio Clinico 
e Instrumentapao MAdica. Trabalhou durante 
quatro anos com o computador Burroughs 
6700 do Nucleo de ComputapSo Eletrdnico 
da UFRJ, usando as linguagens FORTRAN IV 
e Algol. Tern vArios artigos publicados nas 
Areas de Eletrdnica Digital e Gera! em revistas 
especial izadas. 





Cidade Maravilhosa 










10 


FOR K - 768 TO 786s READ J: 
















POKE K, J: NEXT 


1030 


D| - MIDI (B|,2, 


L) 






20 


DATA 173,48,192,136,208,4,19 


1040 


IF Cl - "0" 


THEN 


FOR L = 1 






8,7,240,8,202,208,246,166,6, 




TO 80: NEXT 


s GOTO 1200 






76,0,3,96 


1050 


NT «= VAL (Cl) 








30 


FOR K - 1 TO 9: READ CN(K) : 


1060 


IF Dl - "A" 


THEN 


CC 


* 30: 






NEXT 




GOTO 1150 










40 


DATA 77,82,92,97,110,116,123 


1070 


IF D| - "B" 


THEN 


CC 


- 60: 






,139,147 




GOTO 1150 










50 


N| - "9F7F5G00007C5C7C5E004F 


1080 


IF Dl = "C" 


THEN 


CC 


- 90: 






0O000O5F4GOO5C4C5C3GOOOOOO" 




GOTO 1150 










60 


GOSUB 1000 


1090 


IF Dl = "D" 


THEN 


CC 


- 120: 




70 


N$ » "4F2F3F00004C3C5C7F8F00 




GOTO 1150 












008C7C5C3C4F7F9F000000" 


1100 


IF Dl * "E" 


THEN 


CC 


- 150: 




80 


GOSUB 1000 




GOTO 1150 










90 


N| * "9F7F5G00007C5C7C5E004F 


1110 


IF Dl = "F" 


THEN 


CC 


- 180: 






00000 05F4G005C4C5C3G000000 " 




GOTO 1150 










100 


GOSUB 1000 


1120 


IF Dl * "G" 


THEN 


CC 


- 210: 




110 


N$ = "3F3F6H007C8C6C3F7G0000 




GOTO 1150 












4C5C7C5C4F2G3F" 


1130 


IF Dl = "H" 


THEN 


CC 


= 240: 




120 


GOSUB 1000 




GOTO 1150 










990 


END 


1140 


IF Dl - "I" 


THEN 


CC 


= 255 




1000 FOR K « 1 TO LEN (N$) STEP 


1150 


POKE 6 , CN ( NT ) : POKE 


7,CC: 






2 




CALL 768 










1010 BS - MID$ (N$ , K , 2) 


1200 


NEXT 










1020 C$ - MIDI (B|,l,l) 


1250 


RETURN 








at. 




Os Micros Chegaram! 

Cartoes Perifericos para APPLE. 



RAMCARD: 



Cartao de expansao de memo- 
ria RAM de 16 Kb. k frlaftfJiTO) Cartao adL 
cional para utilizar CP/M. ITJI»]3fl|:(;l7iB 
Cart3o para aumentar a capacidade de 
terminal para 80 colunas e 24 linhas. 
I a tf l ci A Cartao para programar 

e guei rnar 10 tipos E PROM's de 24 pi- 
nos. Cartao para de- 

senvolvim ento e teste de novos 
projetos. KE59EM3 Cartao de 
Interfac e para 2 discos driver. 
lsi:ll^i Cartao de Interfa- 
ce para impressora tipo paralelo. 



MICROCCMPUTADORES LTDA. 

Industria e Comercio. 
Av. Brig. Faria Lima, 
1.664 -cj. 314 
tel. 212-6286 
Sao Paulo - SP. 



APPLE. CP/M sto nrwcas regstradas de APPLE 
COMP INC e DIGITAL RESEARCH COP USA 











Este programa, desenvolvido no Pocket Computer 
PC- 1211,6 uma conversSo do jogo Resta 1, desafio 
na HP-41 C, publicado em MICRO S/STEMAS nQ 17. 
Conv6m lembrar que, estando o programa em BASIC, 
vocS podera roda-lo em outros micros, desde que 
sejam feitas as eventuais modificagoes. 



Resta 1, desafio 
no PC-1211 



Ad emir Moreno Aguilar 
Sao Pau/o-SP 







LOJA 

MICRO-KIT 

TUOO SOME MICHOCOMWJTAOOR 



LANQAMENTO: 



Livro de Basic vol. I 
Edigao Prdpria 



CURSOS 







Basic p/adultos e criangas, com m6to- 
do prbprio comprovadamente eficiente; 
Professores c/mestradoem ENGENHA- 
RIA DE SISTEMAS; mais de 20 cursos 
aplicados. Turmas pequenas aulas pra- 
ticas com MICR0C0MPUTAD0R. 

VENDA DE MICR0C0MPUTAD0R 
Unitron AP II, Digitus, TK e CP 200. 
Financiamento em at6 24 meses. 
PROGRAMAS 

Comerciais e Jogos p / APPLE, Unitron, 
Polymax, Digitus TK e CP200. 

SUPRIMENTOS 

Disquetes, Caixa p / Disquetes, Formu- 
terios Continuos etc. 

VENDA DE LIVROS E REVISTAS 

Despachamos para todo o Brasil. 

Rua Visconde de Piraja, 303 S/Loja 
210 - Tels. (021) 267-8291 - 521-4638 
CEP 22410 • Rio de Janeiro 
Rua Visconde de Piraja, 365 sobreloja 
209 - Ipanema 



RESTA 1 


5: IF NO0PAUSE " 


1 10; v=Y+l 


NUI1ER0 INTEIRO 


i20;C=<R-y-i)/4 


" : GOTO 40 


130; C=C-INT C: IF C 


6 : RETURN 


O0THEN 100 


10; "A"N=0: INPUT " 


1 40: PAUSE "EU JOGU 


NUMERO =" ; N 


El " J Y: R=R-Y: 


20: IF N< 11 PAUSE " 


GOSUB 540 


N>10" : GOTO 10 , 


150: IF R<0THEN 520 


30:M=N-INT N: 


160: IF R=1 THEN 500 


GOSUB 5 


170; N=R: GOTO 40 


40; INPUT "UOCE JO 


180: IF B=0LET Y=2: 


GAC1-3) " ; A; IF 


B=1 : GOTO 200 


< A<0)+ ( A>3) 


190: B=0: Y=1 


PAUSE "con ROU 


200: GOTO 140 


BO EU NAO JOGO 


500: BEEP 1 : PAUSE " 


" ; GOTO 40 


GANHE1 FAC1LIT 


50:1=A-INT A: 


ENTE OUTRA": 


GOSUB 5 


GOTO 10 


60; R= 1 NT N-INT A: 


510; BEEP 5: PAUSE' " 


IF R<0THEN 500 


PARABENS! TENT 


70; IF R=1 THEN 510 


E REPET1R ! " : 


80; GOSUB 540 


GOTO 10 


90; v =.-0 


540; PAUSE "SOBRARA 


100; IF V=3THEN 180 


n ";R; RETURN 




£ 
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Maxxi,o micro pessoal muito 

prof issional da Pblymax. 



O Maxxi e um microcomputador pessoal — profissional de grande versatilidade 

e assegurada possibilidade de expans5o.Compativel com APPLE II 

PLUS*, aceita mais de 5 mil programas aplicativos disponiveis no mercada 

Sua caracterfstica padrao inclui um monitor e linguagem Rolysoft Basic, ambas 
gravadas em ROM, com 2 kbytes e 10 kbytes, respectivamente, 48 kbytes de 
memdria RAM disponiveis para o usuario; interface para gravador cassete, 
video e tv colorida (sistema PAL-M); teclado padrao ASC II e fonte de 
alimentat£o, dispostos em um gabinete prdprio. 

Veja aqui sua essentia tunica: 

Microprocessador 

6502 operando com frequdncia de 1 MHZ. 

Video 

O Maxxi possui um video profissional de 12" com fosfatiza^ao verde e pode 
conectar-se tambdm com uma televi&So comum (colorida ou preto & branco), 
operando no modo texto ou grifico (baixa ou alta resolugao), sendo 
completamente transparente ao usuirio o acesso it memdria. No modo grificO) 
as ultimas 4 linhas do video operam no modo texto, Todos os modos de 
operaqio com o video sdo selecioniveis por Software. 

Modo Texto 

• 40 caracteres/linha, 24 linhas. 

• Caracteres 5x7. 

• Video normal, reverso e piscante. 

• Controle pleno do curso. 

Modo Grifico 

(baixa resolu^jo) 

•40hx48vou40hx40v com 4 linhas de texto. 

• 16 cores selecioniveis por Software. 

• Comando especificos do Rolysoft Basic para uso 

do Modo Greifico: COLOR. PLOT, HLIN, VUN, SCRN. 

(alta resolu^ao) 

• 280 h x 192 v ou 280 h x 160 v com 4 linhas de texto. 

• 6 cores selecioniveis por Software. 

• Comandos especificos do Rolysoft Basic para uso no modo 
grdfico HCOLOR, HPLOT. 

• Imagem do video residente em 8 kbytes. 



Agora vamos 
processar os dados 
tecnicosdele. 

Memdria 

A memdria dinSmica RAM d organizada em 3 incrementos de 16 kbytes cada 
um, num total de 48 kbytes totalmente disponiveis para o usuirio. Esta 
memdria pode ser aumentada conforme a necessidade do usudrio adicionando 
placas de expansSo. Possui tambdm 10 kbytes de ROM para armazenamento 
do Rolysoft Basic e 2 kbytes de ROM para o sistema monitor. Sistema de 
"Refresh" automdtico, completamente transparente. Memdria ripida — tempo 
de acesso de 350 ns. 

Entrada e Saida 

O Maxxi inclui um teclado com padrio ASC II; interface para gravador cassete, 
video e tv colorida sistema PAL-M; um conjunto de 8 conectores para a liga^ao 
de cartdes controladores de perifdricos e expansdes; 3 entradas de 1 bit, 4 
entradas analdgicas para conex^o de "joystick" e 4 saidas digitais de 1 bit. 

Rolysoft Basic 

Rossui caracteristicas bisicas do padrao Basic com tdcnicas de forma a propiciar 
miximo rendimento dos recursos de Software do produto. 

Monitor 

Gravado em ROM com 2 kbytes. 

Rerifericos e acessdrios disponiveis 

O Maxxi de concep^So modular, cresce de acordo com os perifdricos a ele 
incorporados, dentre os quais destacamos: TV comum, a cores ou preto & 
branco — Monitor profissional Polymax de 12" com fosfatiza^ao verde — 
Unidade de drives de disquetes de 5 V*”, organizado com 25 trilhas, 16 setores 
de capacidade de 256 bytes cada um — Unidade de gravador cassete — 
Interface serial para impressora — Impressora Polyprint 90 CPS de 80/132 
colunas — Controladores de jogos — Interface serial para comunicacSo de 
dados — Modem - Placa de expansSo de memdria RAM para 64 kb — Placa 
de CPU Z-80 (sistema operational CP/M) — Placa Videx expansora de video de 
40 para 80 colunas — modulador de R.F. 



• Outros produtos da Rotymax: 

• POLY 301 WP 1‘dKm rikii 

• POLY 201 DP • POLY 105 DP 

• POLY 201 DC • POLYNCT 






MATRIZ: PORTO ALEGRE IRS) - Fone 42-78)3 

FIIIAIS A8C (SPI Foot 4S4-4922 K lO HORIZON It IMCI BRASILIA OFI 
PORTO Alien RSI bor 42-33)1 RIO DE lANfIRO <R|) F one 252-8274 



I PAULO (SP) Foot 283-3722 






max 



TB4ASE PERFTRCOS &A 



Filiada a ABICOMP 
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Para os amantes da musica aqui vai um menu que proporciona decod if icar 
qua/quer acorde e aplica-lo nas harmonizagoes de jazz. 



Jazz Cibernetico 




Marcus Brunetta 



A fin alidade deste artigo 6 empre- 
gar o microcomputador (NE, 

TK. e CP-200) na analise da for- 

ma 9 <ro dos acordes caracteristicos do 
jazz tradicional, decodificando-os. Isto 
s6 se toma possivel gra 9 as a ado^lo da 
escala temperada, antevista por Ra- 
meau e Bach, atualmente de uso impera- 
tive nos instrumentos ocidentais de tons 
fixos. 

Antes de vermos como isto acontece, 
falaremos um pouco do surgimento do 
jazz. 

Admite-se que o jazz tenha a sua on- 
gem nos cantos e nas tradifdes musi- 
cals, provenientes do caldeamento de 
elementos afro e euro-amencanos, na 
regido Sul dos Estados Umdos, notada- 
mente em Nova Orleans. A partir deste 
estagio uncial de forma^fo, em fins do 
sdculo passado, a popula^o branca to- 
mou contato com o matenal sonoro e 
ritmico que caractenza o jazz. 



Neste processo de assimila^o ldenti- 
fica-se uma sdne de etapas adaptativas, 
ainda n2o encerradas. Algumas delas po- 
dem ser apontadas com seguran 9 a, como 
o Dixieland, no pnncipio de nosso sdcu- 
lo, em Nova Orleans; e o Chicago Jazz, 
da d^cada de vinte, quando o centro de 
gravidade do jazz se desloca para o nor- 
te, rumo a Chicago, , sofrendo contn- 
bun;Oes individuals important l'ssimas e 
transformando-se num verdadeiro estado 
de espirito. 

TEMPERO MUSICAL 

Vejamos agora em que consiste a es- 
cala temperada e a implica 9 ao que traz 
para o emprego do microcomputador 
nos meandros da harmoma do jazz. 

Imagine o teclado de um piano, por 
exemplo. Partindo de uma nota qual- 
quer, uma sucessSo de doze quintas justas 
produz toda a gama cromatica e recai so- 
bre a nota uncial da sequencia. £ bom 
lembrar que uma quinta justa 6 o inter- 



valo que existe por exemplo entre um 
D6 e o Sol subsequente;e escala cromd- 
tica i aquela que sena obtida se partis- 
semos de uma nota qualquer e fossemos 
tocando as demais na ordem em que se 
apresentam no teclado. 

Entretanto, se afinarmos exatamente 
cada uma destas quintas na raz£o de 
suas frequencias, isto 6, 3/2, a ultima 
nota produzida nSo estana em uni'sso- 
no com a pnmeira e sim claramente 
mais alta. Aquilo que chamamos de tern- 
peramento igual da escala consiste, sim- 
plesmente, em proceder-se a afina^o de 
cada quinta diminuindo-se de 1/12 do 
valor em que a ultima quinta excede a 
pnmeira. 

Deste modo a escala cromatica esta- 
ra dividida em doze intervalos iguais, o 
que possibilita, na prdtica, a transposi- 
9 ao de uma melodia dada para qualquer 
tonalidade, sem que esta se altere. Este 
fato € fundamental para o emprego do 
micro na andlise que faremos. 
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Um aspecto importante 6 que sendo 
o jazz atual fruto de uma lmprovisa^o 
consciente, tende a desafiar a nota^ao 
musical tradicional. Aldm disto empre- 
ga matenal harmonico que, embora seja 
conhecido da harmoma tradiaonal, ndo 
leva em considerate) regras de aplica- 
bilidade . Como consequenaa, muitas ve- 
zes, uma partitura de jazz pode se apre- 
sentar como no trecho da musica “Sum- 
mertime”de Gershwin (figura 1). 

Representamos as notas de acordo 
com o chamado cifrado mternacional: 
C = D 6 , D = R£, E = Fd, G=Sol, A =U, 
B = Si. Em computador dotado de alta 
densidade de video e memdna expandi- 
da com unidade de disco, o programa 
podena conter a visuahzat 0 das notas 
no pentagrama. Sena oportuno, tamWm, 
ver a sintetiza^ao dos sons correspon- 
dentes. 

Observe amda que a notado da mao 
esquerda (“de acompanhamento”) foi 
substituida por um conjunto de cifras, 
do tipo E+, Am 6 , E7, etc. 0 programa 
que apresentamos interpreta e traduz es- 
tas cifras em notas musicals convencio- 
nais. Vejamos como isto i feito. 



TRADUCAO DAS CIFRAS 



Em pnmeiro lugar lembremos que o 
material sonoro do jazz 6 composto por 
uma escala pentatonica (cinco tons in- 
teiros), oomo mostra a figura 2. Esta 6 
ampliada pelo aerdsamo de uma terfa 
menor e uma sdtima menor (as notas 
blue ) dando ongem a um modo hepta- 
tonico, conforme demonstra a figura 3. 

Enquanto o modo heptatonico pos- 
sui valor mel 6 dico, o modo pentatonico 
da ongem aos dois acordes mais caracte- 
risticos do jazz, isto 6, o acorde de sex- 
ta (empregado por Gershwin no segundo 
e no terceiro compassos do exemplo 
mostrado: Am 6 ) e o acorde de nona. 

Vimos que o temperamento igual da 
escala possibilita o tratamento de todos 
os intervalos como equidistantes. Para 
fins do programa, a escala do piano foi 
numerada, a partir do D 6 central (o Do 
da “fechadura”), atnbuindo-se um nu- 
mero sequenaal inteiro a cada nota. 

0 programa 6 acessado a partir de um 
pnmeiro menu, onde constam as notas 
da escala musical, na seguinte ordem: 

1 = C= DO 

2=C # = DO SUSTENIDO (abreviado 
SUST) 

3=D=RE 

4=D # =RE SUST 

5=E=MI 

6 =F=FA 

7=F # =FA SUST 

8 =G=SOL 

9 = G # = SOL SUST 

10= A- LA 

1 1 = A # =LA SUST 

1 2= B= SI 




Figura 1 




Figura 2 



it = 


1 









Figura 3 



Gostana de fazer duas observates a 
respeito deste menu. A pnmeira delas 6 
que a sequencia pode ser repetida, isto 
d, o Do da oitava seguinte sena igual a 
1 3 e assim por diante (isto estd feito no 
programa atd o numero 33). A segunda 
6 que s 6 utilizamos a altera^o ascen- 
dente (sustemdo) por razOes graficas, 
embora sabendo da enarmoma que D 6 
sustenido = R£ bemol, etc. 

Depois de digitada a tonalidade, apa- 
rece uma pergunta que ird conduzir, por 
razdes de tdemea harmonica e coma- 
dentemente computacional, a dois me- 
nus secunddnos diferentes: o dos acor- 
des sem alterato e o dos acordes alte- 
rados. 

Chamamos acordes sem altera^o os 
que sdo construidos essenaalmente com 
o material contido no modo heptatoni- 
co ja mostrado. Sao eles: 

0: Maior 
M: Menor 
6 : Maior com sexta 

9/6: Acorde com sexta e nona (maior) 

.7: Sdtima (maior) 

M7: S^tima (menor) 

DIM : Acorde diminuto 
9: Maior com nona 
M9: Menor com nona 
1 1 : Ddcima-primeira (maior) 

13: Ddcima-terceira (maior) 

Aqui, tambdm, algumas observa£Oes 
sdo importantes: 

• Na prdtica o acorde maior fica suben- 
tendido , isto 6 , G= Sol maior; 

• 0 acorde menor d notado com m mi- 
tt usculo (ndo disponivel no NE-Z8000): 
Gm = Sol menor. 0 mesmo se da para 
qualquer acorde do modo menor: Am 6 = 
La menor com sexta; 

• 0 acorde de quinta e s^tima diminu- 
tas, abreviadamente chamado de dimi- 
nuto 6 por vezes notado como °, isto 6 : 
D° = acorde diminuto de R£; 



• Os acordes sem altera^o* ^ excepto 
dos de 11 e 13, sSo tetrafomcos (quatro 
notas). 

SIo acordes alterados todos aqueles 
que implicam em mudanfas ascendentes 
ou descendentes nas notas que corn- 
poem o modo heptatonico dado. Entre- 
tanto, n3o se alteram a fundamental, a 
ter 9 a e a sexta. 

0 menu dos acordes alterados i li 
mostrar: 

+= acorde aumentado (quinta aumenta- 
da) 

5- = quinta diminuta 
7+ =s^tima maior (acorde maior) 

M 7 + =s£tima maior (acorde menor) 

9 + =nona aumentada 
9- =nona diminuta 
1 1 + =d^cima pnmeira aumentada 
13- =d^ama terceira diminuta 

Observe que os acordes alterados es- 
tfo dfrados convencionalmente e sao, a 
exce^So de 11 + e 13-, pentafomcos 
(cinco notas); e que a lista nfo 6 exausti- 
va, o prbpno leitor conhecedor do jazz 
atual sabe que estlo em uso acordes 
mais exdticos. 

Depois de teclar a tonalidade, optar 
pelo acorde alterado ou n3o, e escolher 
o menu com o restante da cifra veremos 
impresso no video uma sequencia nu- 
mdnea do tipo: 

5 9 

13 17 

seguida de uma pergunta: DECODIFI- 
CA^AO(S/N)?. Isto possibilita a qual- 
quer pessoa, mesmo sem conhecer a no- 
ta^o musical, executar o acorde seleao- 
nado, desde que numere o teclado como 
se segue : 



*E* 

*G \ * 

*C* 

*E* 

Desta forma, todos os intervalos fo- 
ram transformados em sequenaas nu- 
mencas e cada sequencia representa o 
acorde pedido. 

Respondendo sim a pergunta anterior 
aparece a segumte men sagem: DIGITE 
0 CODIGO; que deverd ser respondida 
com a sequencia num^nca, em ordem 
crescente e seguida de um zero, se o 
acorde for tetrafonico ou pentafonico. 
Dai enta^o aparecerd a sequenaa de no- 
tas do acorde pedido: (veja figura 4). jg 
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JAZZ cibern£tico 



C# D# F# G# A# 




Figura 4 
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seguida de uma pergunta: OUTRO 
ACORDE(S/N)? ; que remete ao menu 
pnncipal ou encerra o processamento. 

Veja que em nosso exemplo a se- 
quence de notas obtidas decodifica o 
acorde E+, que vem a ser o primeiro 



exemplo dado (“Summertime” de Ger- 
shwin). Com isto, estd claro que pode- 
mos decodificar qualquer acorde em 
qualquer tonalidade (desde que conste 
do menu) e aplicdio nas harmomza^es 
do Jazz tradicional. 



Marcus Brunette tem curso de EstruturagSo 
Musical na FundagSo de EduceoSo Artfstica 
am Belo Horizonte, tando ainda estudado da- 
rineta com o Prof. Salvador Villa. Atuaimente 
6 clarinetists da Orquestra SinfOnica Mineira 
a da Sociadade Musical Carlos Gomes, da Belo 
Horizonte. 



SOFTWARE 

O Combustfvel do Computador 



Programas para CP 500, DGT 100, TRS 80, Dismac, Poly max eoutros 
Temos disponiveis mais de 50 programas especificos, em 
fita ou diskete, para aplicapoes diversas. 



TABELA DE PREQOS - PROMOQAO ESPECIAL 



PROGRAMA 


FITA (Cr$) 


DISKETE (CrS 


Contabilidade 


24.820,00 


148.900,00 


Folha de Pagamento 


— 


59.570,00 


Controle de Estoque 


39.711,00 


74.460.00 


Editor de Textos 


19.860,00 


49.640,00 


Mala Oireta 


29.780,00 


74.460.00 


Arquivo de Processos 


14.890,00 


19.890,00 


Contas a Pagar/Receber 


29.780.00 


74.460,00 


Controle de Livros 


12.490,00 


17.490,00 


Controle de Cheques 


12.490.00 


17.490.00 


Biorritmo 


9.930,00 


14.930,00 


Decisao 


10.920.00 


15.920,00 


Histograma 


10.920,00 


1 5.920,00 


Estatistica 


10.920,00 


15.920,00 


Graficos 


10.920,00 


15.920,00 


Obstaculo 


10.920,00 


15.920.00 


Eq. Diferencial 


10.920,00 


15.920.00 


Controle de Saldo Bancdrio 


— 


49.640,00 


Crediario 


— 


74.458,00 


•Administracaode Imoveis 




273.000,00 




/i/temo/ 



Av. Rio Branco, 45 gr. 1311 

Tal (021) 263-1241 

CEP 20090 — Rio da Janeiro. 




□ CURSOS DE BASIC 

□ SOLICITE NOSSO 
catAlogo OU VISITE 
NOSSO SHOW-ROOM. 



□ DESCONTOS PARA 
REVENDA 

□ ATENDIMENTOPOR 
REEMBOLSO POSTAL 
PARA TODOO BRASIL. 




CONTABILIDADE GERAL 
PARA 

CP500 - DGT— 100 - TRS-80 
E OUTROS 



Voce tambem en contra esses programas em nossos revendedores credenciados. 
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Acordes de Jazz 



10 REM PGM JAZZ HARMONY I 

20 REM PGMER MARCUS BRUNETTA 

21 REM JAN/1983 

25 CLS 

30 PRINT AT 5,0; »••«•*•••••••** 



40 PRINT "QUAL E A TONAL I DADE ?' 



50 PRINT TAB 7 
60 PRINT TAB 7 



70 PRINT TAB 7;" 3-D- RE" 



80 PRINT TAB 7 ; "4-D% -RE SUST" 

90 PRINT TAB 7 ; "5-E-MI" 

100 PRINT TAB 7; "6-F-FA" 

110 PRINT TAB 7; "7-F% -FA SUST" 
120 PRINT TAB 7; "8-G-SOL" 

130 PRINT TAB 7; "9-G% -SOL SUST" 
140 PRINT TAB 7j "10-A-LA" 

150 PRINT TAB 7; "11-A% -LA SUST" 
160 PRINT TAB 7 ;"12-B-SI" 

170 PRINT ">>>>>>> >DIGITE* 

180 INPUT T 
190 CLS 

200 PRINT AT 10, 0; 44444444 



1 1-C-DO" 

•2-CS -DO SUST" 



201 PRINT "ACORDE ALTERADO ?(S/N)' 

202 PRINT -•****•******•«*«••**•*< 



203 INPUT Q8 

204 IF Q8-"S" THEN GOTO 342 

205 CLS 

206 PRINT AT 5,0; "QUAL E A CIFRA?" 



220 PRINT TAB 7; 
230 PRINT TAB 7j 
240 PRINT TAB 7; 
245 PRINT TAB 7; 
250 PRINT TAB 7; 
270 PRINT TAB 7; 
280 PRINT TAB 7; 
290 PRINT TAB 7; 
300 PRINT TAB 7j 
305 PRINT TAB 7; 
310 PRINT TAB 7; 
330 PRINT TAB 7; 

341 GOTO 2900 

342 CLS 

343 PRINT AT 5,0; 



"0-MAIOR" 

"M-MENOR" 

"6-SEXTA" 

"M6-MENOR C/SEXTA" 
"9/6-SEXTA E NONA" 
"7-MAIOR C/SETIMA" 
"M7-MENOR C/SETIMA" 
"DIM-DIMINUTO* 

"9 -NONA (MAI OR) 
*M9-NONA(MENOR) " 

"11-DEC. PRIMEIRA(MAIOR)" 
* 1 3-DEC . TERCEI RA ( MAIOR)’ 



344 PRINT "QUAL E A CIFRA?" 

350 PRINT TAB 7; "+-AUMENTADO (QUINTA AUM;)" 
360 PRINT TAB 7; "5— QUINTA DIMINUTA" 

380 PRINT TAB 7; "7+-SETIMA MAIOR" 

390 PRINT TAB 7; "M7+-SETIMA MAIOR (AC . ME - 

400 PRINT TAB 7;"9+-NONA AUM. (AC .MAIOR) " 
410 PRINT TAB 7; "9— NONA DIM. (AC .MAIOR) " 
420 PRINT TAB 7; "11+-DECIMA-PRIMKIRA AUM. 
(AC. MAIOR) " 

430 PRINT TAB 7; "13--DECIMA-TERCEIRA DIM. 
(AC. MAI OR) ’ 

440 PRINT ">>>>»>>»DIGITE 44444444 " 

450 INPUT C * 

460 IF C»-"+* THEN GOSUB 500 
470 IF C|-"5-" THEN GOSUB 600 
480 IF Cf-"7+" THEN GOSUB 700 

490 IF C»» "M7+"THEN GOSUB 800 

491 IF Cl "9+" THEN GOSUB 900 

492 IF Cl““9-" THEN GOSUB 1000 

493 IF C$-*ll+ 1 THEN GOSUB 1100 

494 IF C»-"13-" THEN GOSUB 1200 

500 CLS 

501 PRINT AT 10,0 ;T,T+4 ,T+8 ,T+12 
505 GOTO 1900 

540 RETURN 

600 CLS 

601 PRINT AT 10,0 ; T,T+4 ,T+6 ,T+12 

602 GOTO 1900 
605 RETURN 

700 CLS 

701 PRINT AT 10,0 ;T,T+4,T+7,T+11 

702 GOTO 1900 
705 RETURN 

800 CLS 

801 PRINT AT 10,0 ; T,T+3,T+7 ,T+11 
80-2 GOTO 1900 

805 RETURN 

900 CLS 

901 PRINT AT 10,0 ; T,T+4,T+7,T+10,T+15 

902 GOTO 1900 
905 RETURN 

1000 CLS 

1001 PRINT AT 10,0 ;T,T+4 ,T*7 ,T+10 ,T+13 

1002 GOTO 1900 
1005 RETURN 

1100 CLS 

1101 PRINT AT 10,0 ;T,T+4 ,T+7,T+10 ,T+14 , 
T+18 

1102 GOTO 1900 
1105 RETURN 

1200 CLS 

1201 PRINT AT 10,0 ; T,T+4 ,T+10 ,T*14 ,T+ 
17.T+20 



1202 GOTO 1900 
1205 RETURN 

1900 PRINT " 44 DEC0DIFICAQX0?(S/N) " 

1910 INPUT D$ 

1930 IF D|-"N" THEN GOTO 2018 

2000 REM SUBROT DECOD 

2001 PRINT ">»>DIGITE O CODIGO 444 " 

2002 FOR J- 1 TO 6 

2003 INPUT L 

2004 IF L-l OR L-13 OR L-25 THEN PRINT 
TAB 9; " 4 c 4 " 

2005 IF L»2 OR L-14 OR L-26 THEN PRINT 

TAB 9;" 4 CV" 

2006 IF L-3 OR L-15 OR L-27 THEN PRINT 
TAB 9; " 4 D 4 " 

2007 IF L-4 OR L-l 6 OR L-28 THEN PRINT 
TAB 9;" 4 DV" 

2008 IF L-5 OR L-17 OR L-29 THEN PRINT 
TAB 9; " 4 E 4 " 

2009 IF L-6 OR L-18 OR L-30 THEN PRINT 
TAB 9 ; " 4 F 4 " 

2010 IF L-7 OR L-19 OR L-31 THEN PRINT 
TAB 9;" 4 F% 4 " 

2011 IF L-8 OR L-20 OR L-32 THEN PRINT 
TAB 9; " 4 G 4 " 

2012 IF L-9 OR L-?l OR L-33 THEN PRINT 
TAB 9 ;" 4 (^" 

2013 IF L-10 OR L-22 THEN PRINT TAB 9; 

" 4 A 4 " 

2014 IF L-ll OR L-23 THEN PRINT TAB 9; 

" 4 AV" 

2015 IF L-12 OR L-24 THEN PRINT TAB 9; 

" 4 B 4 " 

2016 IF L-0 THEN GOTO 2018 

2017 NEXT J 

2018 PRINT "OUT RO ACORDE? (S/N) " 

2019 INPUT Z$ 

2020 IF Z$«"S" THEN GOTO 25 
2024 STOP 

2900 PRINT ">>>»»> DIGITE 44444444 " 

2910 INPUT F* 

3000 IF F$-"0" THEN GOSUB 3050 

3002 IF F$-"M" THEN GOSUB 3060 

3003 IF F$="6 " THEN GOSUB 3070 

3004 IF F>-"9/6 " THEN GOSUB 3080 

3005 IF F$-"7" THEN GOSUB 3090 

3006 IF F|-"M7" THEN GOSUB 3100 

3007 IF Ff— "DIM" THEN GOSUB 3110 

3008 IF F|-"9" THEN GOSUB 3120 

3009 IF F$-"U" THEN GOSUB 3130 

3010 IF F»-*13" THEN GOSUB 3140 

3011 IF F$="M9" THEN GOSUB 3150 

3012 IF F»-"M6" THEN GOSUB 3160 

3050 CLS 

3051 PRINT AT 10,0 ;T,T+4 ,T+7 ,T+12 

3052 GOTO 1900 

3053 RETURN 
3060 CLS 

3061 «PRINT AT 10,0 ;T,T+3,T+7,T+12 
3063 GOTO 1900 
3065 RETURN 

3070 CLS 

3071 PRINT AT 10,0- ;T,T+4 ,T+7 ,T+9 

3072 GOTO 1900 

3073 RETURN 

3080 CLS 

3081 PRINT AT 10,0 ;T,T+4 ,T+9,T+14 

3082 GOTO 1900 

3083 RETURN 

3090 CLS 

3091 PRINT AT 10,0 ;T,T+4,T+7,T+10 
3093 GOTO 1900 

3095 RETURN 

3100 CLS 

3101 PRINT AT 10,0 ;T,T+3,T+7,T+10 

3102 GOTO 1900 

3103 RETURN 

3110 CLS 

3111 PRINT AT 10,0 ;T,T+3 ,T+6 ,T+9 

3112 GOTO 1900 

3113 RETURN 

3120 CLS 

3121 PRINT AT 10,0 ;T,T+4,TflO,T+14 

3122 GOTO 1900 

3123 RETURN 

3130 CLS 

3131 PRINT AT 10,0 ;T,T+4 ,T+10 ,T+14 ,T+17 

3132 GOTO 1900 

3133 RETURN 

3140 CLS 

3141 PRINT AT 10,0 ;T,T+4 ,T+10 ,T+14 ,T+21 

3142 GOTO 1900 

3143 RETURN 

3150 CLS 

3151 PRINT AT 10,0 ;T,T+3,T+10,T+14 

3152 GOTO 1900 

3153 RETURN 

3160 CLS 

3161 PRINT AT 10,0 ;T,T+3,T+7,T+9 

3162 GOTO 1900 ■ 

3163 RETURN tm 
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— Cursos de programagao com 
APOSTILA PROPRIA e AU- 
LAS PRATICAS em diversos 
MICROCOMPUT ADORES 

— Todas as principals marcas 
de MICROCOMPUTADORES 
pelo menor prego com credi- 
to direto em at6 24 MESES 

— Programas prontos ou por 

encomendas tanto de jogos 
quanto comerciais 



MICROCENTER INFORMATICA LTDA. 
Rua Conde de Bonfim, 229 - Lojas 320 e 
312 — Galena Cinema III - Tel.: 264-0143 
• Cep 20520 - Tijuca - Rio de Janeiro - RJ 



SUPPLY 



EM PD, TUDO 
O QUE VOCE 
NECESSITA NUM 
S6 FORNECEDORI 

E a Supply nAo tem apenas todo e qualquer tt- 
po de material para CPD's. Tem tamblm os 
melhores pre^os e a mats rApida entrega. Isso 
porque a Sappiy tem um estoque completo das 
melhores marcas existentes no mercado, po- 
dendo assim atender — com a mesma efkcitn- 
cia — desde empresas de grande porle atf pe- 
quenos consumidores. 

Se o seu problema for suprimentos para Proces- 
samento de Dados, pre^o ou prazo de entrega. 
consulte antes a Sapply. 

VocA far* boas ncg6clo< • bona aaalpoa. 



<m>$UPF L¥ 



Suprimentos e Equipamentos para Proces- 
samento de Dados Ltda. 

Rua Padre Leandro, 70 — Fonseca 
CEP 24120 — Tel.: 722-7937 Niterdi - RJ. 



OUTROS ESTADOS: 

Pernambuco, Rio Grande do Norle a Parai- 
ba: Filial Recife: (081) 431-0569 - Alagoas: 
CORTEC: (082) 221-5421 — Cear*: DATA- 
PRINT: (085) 226-9328 — Mato Grosso: FOR- 
TALEZA: (067) 382-0173 
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Softec Engenhana de Sistemas 
Ltda., ha 12 anos atuando na 
drea de Processamento de Da- 
dos em SSo Paulo, lan^ou, no final do 
semestre passado, o pnmeiro microcom- 
putador brasileiro a utilizar a tecnologia 
dos microprocessadores de 1 6 bits. 

£ o EGO, que 6 compativel em hard- 
ware e software com o IBM Personal 
Computer e vem com dois sistemas ope- 
racionais: o CP/M-86 e o Analix. Aldm 
disso, o EGO tern alta resolu^o grafica, 
cores, grande versatilidade de uso de pe- 
ri ft ncos e de comunica^es (inclusive 
como terminal de computadores maio- 
res) e recursos para operar em multi- 
programa^To, com at6 oito terminals 
simultaneamente. 

HARDWARE 

A unidade central de processamento 
do EGO esta apoiada no microproces- 
sador Intel 8088, de 1 6 bits e clock de 
5 MHz, que conta ainda com o apoio 
de um co-processador aritm^tico de 
ponto flutuante, o Intel 8087 de 16 
bits. 

0 EGO tern 48 Kb de memdna ROM 
onde reside seu software basico e 64 Kb 
de memdria RAM disponiveis para o 
usudno, com expansSo prevista para at£ 
1 Megabyte. 

Seu teclado i standard, com caracte- 
res manisculos, minusculos e especiais, 
teclado numenco reduzido, oito teclas 
de comando e dez teclas de fun^o. Ele 
e comandado por um rrucroprocessador 
prdpno, independente do processador 
pnnapal do micro, e possui buffer de 
20 caracteres, destacando-se amda a re- 
peti^So automatica de caracteres e a 
possibilidade de opera^o a atd 1 ,60 me- 
tros do microcomputador. 

0 sistema basico do EGO vem com 
um monitor de video a cores com um 
display de texto de 25x80 ou 25x40 ca- 
racteres, compostos em matnz de 5x7. 
A a present a (^lo dos caracteres pode ser 
em preto e branco - com as op^Ces de 
video reverso, alto bnlho (high-light) 
e campo piscante - ou em cores, com os 
mesmos atributos do P&B, acrescidos de 
16 tonalidades e 8 cores basicas. No 
modo grafico, pode-se plotar graficos de 
fun 90 es com dois tipos de resolusOes: a 
cores com 200x320 pontos, ou em pre- 
to e branco com 200x640 pontos. 

Em sua configura^o basica, o EGO 
ja vem com duas umdades de disquete 
de 5 1/4”, que podem ser de dupla face 
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e densidade e s3o instaladas no prdpno 
gabmete da UCP. Mais duas umdades de 
disquete podem ser ligadas ao EGO, 
cujo controlador de discos permite o 
uso de umdades de 8”, dupla face e den- 
sidade, permitindo combma^es entre 
os dois tamanhos de disquetes, sendo 
apenas obngatdno que um dos quatro 
disquetes seja de 5 1/4”. Aldm disso, o 
sistema aceita ate quatro umdades de 
disco rigido tipo Winchester, com capa- 
cidades de 5 ou 10 Mb, com a promessa 
da Softec de futuramente ligar ao EGO 
umdades com discos de 40, 80 e 96 Mb. 

O EGO pode ser ligado a impressoras 
paralelas e senais, utilizando simultanea- 
mente um mdximo de tres impressoras 
de at£ 340 CPS ou ate 600 LPM. 

Atravds de um adaptador de comu- 
nica^o assincrona, o EGO pode ser h- 
gado a redes de teleprocessamento que 
podem induir outros EGOs, computa- 
dores de maior porte (mainframes) e re- 
des de videotexto, como a Dow Jones 
News ou a Source. Para breve a Softec 
tamWm promete um adaptador para co- 
mumca^o sincrona que far& a interface 
com os controladores de comumca^So 
3704/05, emulando a esta^o 3276, a 
3274, terminals 3278-8 e 3278-12 e 
impressoras 3287-2. A ligado sera feita 
atravds de cabos coaxiais aos controla- 
dores 327x, com protocolos BSC 1 , 3 e, 
futuramente, X:25. 

SOFTWARE 

O EGO possui dois sistemas operacio- 
nais a disposi^o do usuano,o CP/M-86 
e o Analix. 



O CP/M-86 6 uma vers£o do CP/M 
para micros de 1 6 bits que permite mul- 
tiprograma^Io (multi-task) e tern dispo- 
niveis compiladores para BASIC, CO- 
BOL ANS 74, Pascal, etc. 

O Analix, compativel com o sistema 
operacional Unix, utiliza-se da lingua- 
gem C (uma linguagem recente de gran- 
ges recursos para o desenvolvimento 
tanto de utilitirios como de novos co- 
mandos — veja MS n? 19) e comporta 
multiprograma^o, suportando at£ oito 
termmais e um niimero de programas 
proporcional a memdna disponivel do 
sistema. 

Como apbcativos, a Softec cstd cre- 
denciando software -houses nacionais pa- 
ra o desenvolvimento de pacotes co- 
bnndo a area admmistrativa/comercial e 
a gestfo de empresas especfficas, como 
Transportadoras, Agencias de Tunsmo 
etc. 

O software de apoio ji disponivel 
inclui um Editor de Textos, o SOFText, 
e uma Planilha Eletronica de Calculos, o 
SOFTECalc. Para breve, a Softec pro- 
mete os seguintes pacotes: Gerenciador 
de Banco de Dados - DBMS II; Sistema 
de Auto-Treinamento; Suporte Grdfico 

- SOFTGraf; Suporte de Comunica 90 es 

- SOFTECom;e Suporte para uso em re- 
des Ethernet. 

Numa configura^do com dois disque- 
tes de 5 1/4” e monitor de video a co- 
res, o equipamento esta custando apro- 
ximadamente Cr$ 7,8 milh<5es. 

A Softec fica na Rua Cambonu, 255, 
SSo Paulo, SP, CEP 05058, Tel. (01 1) 
260-6800. B 

m 
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UM NOVO 
CONTROLE 
NAS PRWCIPAIS 
EMPRESAS 

^DO PAIS. 





Tod as as empresas ai abaixo estao agora sob 
o controle dos microcomputadores AP II 
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uo-tron 



I FKSTADO TAMBKM 
JT)M DISCO COR VUS 1 



r orj A 






ABERTA TAMBEM AOS SABADOS 



com prados na Clappy E voce quer saber por 

S ue** Primeiro: devido a sua extrema 
exibihdade e facil manuseio, o AP II e o 
microcomputador mais adequado para as 
necessidades das pequenas. medias e grandes 
empresas 

Com memoria basica de 48 K. ele pode ser 
expandido com 384 K. adicionais No AP II 
podem ser conectadas ate 6 unidades de disco, 
alem de placas para utilizagao de CP M. video 
de 80 colunas e impressoras seriais ou 
paralelas. 

Outra vantagem do AP II e que ele aceita todos 
os programas e todos os perifericos do 
microcomputador de maior sucesso nos EUA: 
o APPLE 

Segundo: na Clappy.estas empresas 
eneontraram o menor prego e as melhores 
condigoes de pagamento do mercado, 
alem de equipe tecnica altamente 
especializada e assistencia tecnica durante 
e apos a garantia. 

Compre voce tambem urn AP II na Clappy 
Sua empresa ficara em boa companhia 



PETROBRAS. COMPANHIA 
INTERNACIONAL DE SEGUROS. ATLANTIC. 
FIORUCCI. INTERBRAS. UNIVERSIDADE 
FEDERAL DO RIO DE JANEIRO. COLEGIO 
FRANCO BRASILEIRO. 

COPPE. PRIME DTVM. ESCOLA 
AMERICANA DO RIO DE JANEIRO. 

BANCO DO BRASIL. PHOENIX 
BRASILEIRA DE SEGUROS. 

BANCO LAR-CHASE. 1NCISA. POWER 
CONSTRUTORA. BANCO COMERCIO E 
INDUSTRIA DO ESTADO DE SAO PAULO. 
POESI. PANSOPHIC. MICROLAB. CLINICA 
OTORRINOS ASSOCIADOS. ICAPRESSe 
dezenas de outras empresas e profissionais 
liberals. 



umtron CHagpy 

Bi-eve Clappy Copacabana Show Room Rua Pompeu Loureiro. 99 



Centro: Av Rio Branco. 12 • loja e sobreloja 
283-3588 253-3395 253-3170 234-0214 234-1015 

Rio de Janeiro - RJ 

Entregatnos em todo o Brasil pelo rwmbolso V ARIG 





Transforme em um teclado de piano as tec/as de seu micro da linha 
TRS-80 Modelos /////. E consiga, a!6m dele, muitos outros efeitos sonoros. 




IlipPP 



Simule um 
piano em seu 
teclado 



Newton Braga Junior 



D ~ programa Piano Simula o tecla- 
do de um piano atrav^s das te- 

clas de seu DGT-100 (ou, con- 

sequentemente, de micros da familia 
TRS-80 Modelos I/III, como: D-8000/ 
1/2, CP-500, CP-300, Naja, JR Sysdata e 
JP-01). 

E apresentado em duas listagens: a 



Lutagem 1 - Piano , 6 o programa para 
si mulatto do teclado de piano propria- 
mente dito; a Lutagem 2 — Outros Efei- 



tos , 6 uma varia^o de efeitos sonoros, 
ou seja, se voc& substituir, na Lutagem 
1, as linhas 3, 4 e 11, o teclado de seu 
micro serd um gerador de efeitos sono- 
ros dos mais variados, podendo atd gerar 
efeitos espeaais. 

0 programa Piano 6 simples e nio re- 
quer um nivel de conhecimento de pro- 
grama^ muito elevado. Mas se vocSjd 
tern alguma no^o de BASIC, altere os 
valores da linha 1 1 e consiga efeitos so- 
noros ainda mans loucos. 



Newton Duarte Braga Junior tem curso de 
programapBo COBOL peia Datamec e de pro- 
gramapto FORTRAN pela Universidade Fede- 
ral de Minas Gerais. Seu interesse por eietrd- 
nica comepou no Curso da Escola TAcnica Re- 
rande Ramell e, a parti r de 1980, vem amp/ian ■ 
do seus conhecimentos na Area de computa- 
pio. Atuaimente 4 proprietArio de dois mi- 
cros: DGT-100 e PC-1500. 



Listagem 1 — Piano 

5 CLS : CLEAR1000 : S$=STRING$ (63,"*") :PRINT@448 
,S$ ;@532 , "PIANO ELETRONICO" ;@576 ,S$ ; 

10 DEFINT A-Z : DIM B(128) 

11 POKE16526 , 0 : POKE16527 ,125 

15 FORX=32000T032023 : READA : POKEX, A :NEXTX 

16 DATA 205,127,10,14,255,221,33,255,56,237, 

89.69.16.254.28.203.155.175.221.190.0. 200.24 
,241 

20 READ B (8) ,B (9) ,B (10) ,B (13) ,B(31) 

21 F0RX=44T059 : READB (X) :NEXTX 

22 F0RX=64T091: READB (X) :NEXTX 

30 DATA25, 26, 27, 38, 39, 47, 12, 48, 49, 10, 1,2, 3, 4 

,5,6,7,8,9,11,37,24,28,44,42,30,16,3,2,32,33 

,21,34,35,36,46,45,22,23,14,17,29,18,20,43,1 

5,41,19,40,13 

33 R$=INKEY : IFR$=" "THEN33 

40 A=ASC(R$) :C=B (A) 

45 Y=250-5*C 
50 X=USR(Y) 

60 GOTO 3 3 

Listagem 2— Outros Efeitos 

15 FORX=32000T032033 : READA : POKEX, AiNEXTX 

16 DATA205, 127, 10, 14, 255, 221, 33, 255, 56, 62,1, 
85,71,237,89,28,203,155,16,254,21,32,245,60, 

188.32.240.175.221.190.0. 200.24.231 

45 Q=INT(ABS( (C-2)/8) ) : Y=256 *2 t (Q+l) +2 + (C-8 * 
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As linhas completas de 
microcomput adores, das marcas 
de absoluta qualidade, voce 
encontra na I mares. E em regime 
de pronta-entrega. 

Parece igual a outras lojas de 
computadores? Mas ndo e. Para 
inicio de conversa, a I mares 
implantou uma filosofia propria 
de comportamento que engloba 



uma serie de servi^os: coloca 
equipamentos, softw ares e 
pessoal experiente a disposigao 
da sua clientela e da global 
oriental do de compra do 
equipamento adequado as suas 
necessidades, atuais e futuras. 
Feita a escolha, o seu 
relacionamento com o 
microcomputador sera de 



permanente tranquilidade. 

A I mares tern um corpo de 
tecnicos de hardware e softw are 
altamente especializado, pronto 
a prestar plena assistencia 
tecnica e manutengdo, sempre 
que necessario. E de mais 
a mais, na I mares o seu micro tern 
dupla seguranqa: da propria 
Imares e do fabricante. 




Na Imares 
seu micro tem 
dupla seguranca 



microcomputodore/ 



Av. dos Imares, 457- Tels.: 61-094614049 - CEP 04085 - Moema - SP 
Rua Dr. Renato Paes de Burros, 34 - Tels. : 88 1-02001 1 156 - CEP 04530 - haim - SP 



As t6cnicas que remontam a Criptografia classica, numa intro dugao 
aos sistemas criptogrdficos da era do computador. 



Criptografia, uma arma 
contra os piratas? — I 

Candido Fonseca da Silva 



E ste artigo apresenta algumas considera^&es sobre siste- 
mas de criptografia para dados atualmente conheci- 

dos, apontando vantagens, desvantagens, pontos pole- 

micos, suas aplica^oes e as possibilidades de serem mcorpora- 
dos ao quotidiano dos usuarios de micros. 

Para tanto apresentamos, da forma mais resumida e objetiva 
possivel, um relato sobre o desenvolvimento das tlcmcas crip- 
tograficas, quer antenores, quer postenores ao advento dos 
computadores (estas ultimas, na segunda parte do artigo, a ser 
publicada em MICRO SISTEMAS n 9 25 ). 

Durante sdculos, Criptografia - ciencia que trata das mensa- 
gens secretas sob forma escrita - tern sido um vaiioso trunfo 
para as comumdades mihtares e diplomaticas; tao vaiioso que 
sua pratica sempre foi envolvida em segredo e mist^no. Hoje, 
contudo, o espetacular progresso das Telecomunica9des e da 
Informatica nos trouxe uma sdne de novas situa9<3es e pers- 
pectivas. 

Com efeito, a mtegra^o dessas duas ciencias cnou uma ter- 
ceira - a Teleinformdtica (ou Telemdtica) que est£ revolu- 
cionando a sociedade, em particular a chamada sociedade de 



consumo. Por intermedio da Telemdtica o emprego comercial 
da Criptografia tern aumentado, prmcipalmente no que tange 
aos arquivos confidenciais e a troca de informa95es entre em- 
presas. 

Por outro lado, a introdu9ao do microcomjnitador no dia-a- 
dia de nossas vidas conduziu a uma explosao de vendas de 
software, e muito dinheiro tern sido ganho e perdido na sua 
produ9ao (referenda bibhografica 1). 

Ora, as tecmcas criptogrdficas constituem um dos mais 
simples e seguros mdtodos de prote9ao contra o acesso de ele- 
mentos nao autonzados a informa96es confidenciais, estejam 
elas em papel ou em meios magneticos. 



DEFINigdES 



Antes de entrarmos na parte t£cmca propnamente dita, pre- 
cisamos entender bem o sigmficado de alguns dos termos 
utilizados em Criptografia. Sfo eles: 



• Seguran9a de dados — £ a tecmca que engloba o conjunto 
de medidas para evitar a intercepta9ao dos dados por meio de 
escnta, roubo ou quaisquer outros mdtodos empregados pelo 
inimigo. Conv^m fnsar que a palavra inimigo 6 aqui emprega- 
da fora do conteudo militar, sem a conota^o de violencia. 
Assim, o inimigo sena qualquer pessoa ou orgamza^o que bus- 
casse interceptar os dados aos quais nao tivesse acesso autonza- 
do. 

• Criptografia — £ uma das maneiras usadas pelo expedidor 
da mensagem para evitar que os dados daquela mensagem, uma 
vez interceptados, sejam inteligiveis pelo inimigo. 0 seu com- 
plemento, a Decnptografia, 6 o processo usado pelo destinatd- 
no para decifrar e ler a mensagem original. 

• Sistema criptografico e chave - Conjunto de procedimentos 
usados para cnptografar e decnptografar, sendo que a chave 6 
o conjunto unico de parametros utilizados em uma aplica9ao 
especifica do sistema (figura 1). 

• Criptoanalise — £ qualquer tentativa de, uma vez retidos os 
dados cifrados, obter a mensagem original, sem o conhecimen- 
to da chave. 



TfiCNICAS BASICAS 

Fundamentalmente, sao duas as tecmcas de cnptografar 
mensagens: por substitu^o e por transposi9ao. Qualquer siste- 
ma cnptografico, mdependente do seu grau de complexidade, 
baseia-se em um destes dois processos ou na combina^o deles. 

A substitui9ao pode ser de dois tipos. O pnmeiro deles, 
denominado substitui^o simples ou monoalfab^tica, e a tecm- 
ca mais simples que existe, inclusive muito utihzada como 
quebra-cabe9as. A chave 6 um alfabeto permutado (por 
exemplo: DEFGHIJKLMNOPQRSTUVWXYZABC). Usando 
tal alfabeto-chave, A 6 substituido por D, B por E, C por F e 
assim por diante. Assim, a palavra RAINHA fica cnptografada 
como UDLQKD. 

Este exemplo, onde cada letra da mensagem 6 substituida 
por outra defasada de tres posi96es no alfabeto, configura a 
“Cifra de C6sar”, empregada por Julio C£sar na campanha da 
Gdlia (55 a.C.). 
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L K 



GERADOR DE 
CHAVES 



K J 



P - Mensagem original (ou "texto em claro") 

C - Texto criptografado (criptograma) 

K - Chave 

Canal inseguro, sujeito a agao do inimigo 
Canal supostamente seguro e imune a agao do inimigo. 



Figure 1 - Esquema do fhixo de informagoes em um sistema criptogrdfico conventional /simtirico 



Substitutes simples permitem, no alfabeto de 26 letras — 
25 ! (fatorial de 25), possiveis chaves ou, aproximadamente, 
1,5 x 10 25 possibilidades. Para avaliar a grandeza de tal nume- 
ro, imagine um computador capaz de testar cada chave a cada 
microssegundo. Tal mdquma necessitana cerca de 1,7 x 10 14 
anos para varrer todas as chaves (quase 50.000 vezes mais tem- 
po do que a idade estimada para o plane ta Terra). 

Contudo, praticamente qualquer pessoa consegue resolver 
os quebra-cabe^as publicados nos jornais de domingo em pou- 
cos minutos, baseando-se apenas na porcentagem da frequence 
das letras. 

A moral deste fato 6 que a seguran^a de um sistema enpto- 
grifico nao repousa somente em grandes numeros, e o simples 
fato de um dado equipamento ser anunciado como sendo 
capaz de gerar 10 n+k diferentes chaves, nSo basta para clasa- 
ficd-lo como excepcional. 

Vamos fazer alguns exercicios? Fafa um programa em seu 
micro para enptografar textos por substitui^ao simples. Mas 
antes, alguns bizus: 

a) Observe que, formalmente, a substitui^o simples 6 um 
operador que troca cada letra do texto em claro por outra le- 
tra defasada de k pos^oes no alfabeto, em m6dulo n, onde 
cada n representa o numero de letras do alfabeto. 

Assim, feita uma correspondence biunivoca entre letras e 
numeros (A- 1 , B~ 2, C- 3, . . . Z« 26), tem-se: texto cifrado- 
texto em claro+k (modulo 26) ou, de modo mais compacto: 



CHEGA 

DE 

PROBLEMAS 

Use Tig Loader | 



I 



APENAS: CR$ 15.000,00 



TIG-LOADER possibilita: 

• a localizapao do 6timo volume do gravador, 
facilitando a operapao LOAD. 

• DUPLICAR qualquer programa, mesmoaque 
les "fechados". 

• carregar (LOAD) e DUPLICAR simultanea- 
mente. 

• gravar (SAVE) em 2 gravadores ao mesmo 
tempo. 

• monitorar as operap&es LOAD, SAVE ou 
DUPLICAQAO atravi&s de forte. 

• filtrar as interferencias eletricas de baixa 
frequencia, que s3o a causa da maioria 
dos problemas de LOAD/SAVE. 



APLICATIVOS PARA TK E CP 200 

TIG-SCREEN: vinte e sete rotinas de vi'deo, para incrementar seus programas! 
Inversao de video, moldura, arquivo de imagens, rotapao, scroll em quatro 
direpdes, etc... efeitos visuais incri'veis! Em linguagem de miquina, ocupa 
1,3Kb, ficando protegido no RAMTOP, depois 6 s6 utiliza-lo onde quizer! 
P/16K Com manual explicati vo Cr$ 8.000,00 

TIG-COMP-, coloque, em seus programas em BASIC, a velocidade de 
eddigo de miquina. Rodeos na forma COMPILADA! Simples de usar, 
6 sd carregar ou digitar o seu programa em BASIC e depois usar 
o TIG-COMP. Pronto! Voce ter4 o seu programa em linguagem de miquina em 
instantes. 

P/16K Com manual explicativo Cr$ 15.000,00 

TIG-SPEED: uma combinapJode soft e hardware, permitindouma transference 
de dados micro/cassete de 4.200 bauds. Voce podera carregar ou gravar 
16 Kb em 30 segundos! Acrescenta ao micro a funpio VERIFY. Facilimo de 
operar, compde-se de cassete, interface e manual explicativo. 

P/ 1 6 e 48K Prepo sob consulta. 



Exemplo: para k- 3 e n-26, veja que a letra X 6 enptografa- 
da como A, visto que : 

P = X = 24 

C = 24 + 3 ( mod . 26) = 1 = A 



r % 



Envie seu pedido ♦ cheque nominal cruzado 
Prazo de entrega: 15dias 

Despesas postais inclui'das nos prepos 

At* nd«nw» torrxoU por oru 

TIGRE COM. DE EQUIP. P / COMPUTADORES LTDA. 
Rua Correia GalvSo, 224 
CEP 01547 SSo Paulo • SP 
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CRIPTOGRAFIA, UMA ARMA CONTRA OS PIRATAS? 



b) Se voce nfo quiser usar as ope^Oes em m6dulo, teri: 

C = p + k y se p ♦ k ^ 2 6 e 

C = p + k - 26, se p ♦ k>26 

c) Observe tamb^m que, para alfabetos-chave, como por 
exemplo BWGKQFMVYAC LUNOPHISDXTREJZ, tais f6r- 
muJas nao valem, pois tal alfabeto foi permutado sem uma de- 
fasagem constante. Para casos como este deve-se, no programa, 
defirnr o alfabeto-chave e fazer correspondence entre as letras 
do alfabeto em claro e ele. Por exemplo: A serd cifrado como 
B, B como W, C como G etc. 

Agora desenvolva um programa para cnptoanalisar textos 
cifrados por substitui^o simples. Vamos aos bizus: 

a) Observe que a formula para decnptografar pode ser escri- 
ta como: texto em claro=texto cifrado - k (mddulo 26) ou, 
de forma mais compacta: 

P = c - k (nod. 26) ou ainda: 

P = c - k; se p< 0, p = p + 26 

Exemplo: para k- 3, a letra A, decnptografada, di X, uma vez 
que: 

c = A = 1 

p = 1 - 3 = -2; como p< 0, entao: 
p = -2 + 26 = 2 4 = X 



b) A maneira mais simples de resolver o problema 6 por ten- 
tativa e erro , ou seja, ir experimentando, sucessivamente, com 
k- 1, k- 2 . . . k- 25, (k- 26 restaura o alfabeto original). Isto 
sempre na hipdtese de que o alfabeto foi permutado com uma 
defasagem de k constante. 

c) Contudo, a maneira mais elegante e completa 6 venficar a 
frequence de ocorrencia das letras no cnptograma e compar^- 
la com a do idioma Portugues (em portugues, as letras de 
maior frequencia sao, em geral, EAOSIRND, nesta ordem). 

Num esfor 90 para dificultar a cnptoanalise via exame de 
frequencia de letras, os cnptografistas desenvolveram sistemas 
por substitui 9 ao polialfabetica nos quais diversos, e nao somen- 
te um alfabeto-chave, sao empregados, penodicamente, para 
decifrar mensagens. Um exemplo 6 o Quadro de Vigenere (de- 
vido a Blaise de Vigenere, 1 586), mostrado na figura 2. 

A figura 3 mostra o quadro (parcial) que sena utilizado para 
decifrar um texto utilizando a palavra-chave BUGRE; a figura 
4 llustra como sena cnptografada uma mensagem a partir desta 
chave. 

Uma outra forma de substitu^So polialfabetica e aquela na 
qual, ao inves dos previsiveis alfabetos Vigenere, os alfabetos- 
cifra sao gerados aleatonamente, e nao correlacionados entre 
si. Mais ainda: a chave, ao inves de ser periodica, pode ser nao 
repetitiva (por exemplo, it ). 

Empregando-se tais artificios, esta tecmca, nao obstante jd 
ser conhecida desde os trabalhos de Kasik (1863), torna-se 
demorada e onerosa para o lnimigo. 

Como exercicio, escreva um programa para cnptografia pelo 
Quadro de Vigenere. Olha o bizu: se a sua palavra-chave tiver, 
digamos, cmco letras, isto e, se forem usados cinco alfabetos- 
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Comerciais, financeiros. 
cientificos e games como: 

Formula I 

Em busca do tesouro 
Simulador de voo 
Microcalc 
Invasao cosmica 
Controle de estoque 
Las Vegas 
Viga continua 
e muitos outros 

Cartucho Atari 

Aplicativos p/CP-500, Digitus e Polimax 

Distribuigao exclusiva de programas das 
marcas microline infinitus e supersoft 

PEQA CATALOGO GRATIS 



D DIGITAL 

o end«r«$o dos microcomputadores 



Rua da Conceigaa 377/383 
Fone: (0512) 24-1411 
90000 • Porto Alegre • RS 
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Figura 2 - Quadro de Vigenere 
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BCDEFGHIJKLMNOPQRSTUVWXYZA 
UVWXYZABCDEFGHIJKLMNOPQRST 
GH IJKLMNOPQRSTUVWXY ZABCDEF 
RSTUVWXYZABCDEFGHIJKLMNOPQ 
EFGHIJKLMNOPQRSTOVWXYZABCD 

\ 

Figure 3 - Quadro (parcial) para a palavra<have BUGRb 



MENSAGEM 

CHAVE 

CRIPTOGRAMA 



RENATA E ROBERTA NADAM NA PISCINA 
BUGREB U GREBUGR EBUGR EB UGREBUG 

SYTRXB Y XFFFIZR RBXGD RB JOJGJHG 



Figura 4 - Criptograma com a chave BUGRE 
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Figura 5 - Transposifao simples 

chave, as letras numeradas(5n+i) serao cifradas com o i-6simo 
alfabeto. Sendo assim, letras numeradas com 1, 6, 11, 16 etc., 
serao cifradas com o pnmeiro alfabeto-chave. 

Outra tecmca basica da cnptografia 6 a transposifao. A fi- 
gura S llustra a chamada transposifao simples, na qual a mensa- 
gem 6 escnta sob uma palavra-chave e o criptograma 6 obtido 
retirando-se as letras, coluna por coluna, na sequencia num£n- 
ca das letras da palavra-chave, em grupos de cmco. 

Ji a transposifao dupla consiste em aplicar, ao criptograma 
da transposifao simples, uma segunda transposiffo, pordm 
com uma chave diferente. 0 texto cifrado resultante apresenta 
uma surpreendente resistencia a cnptoandlise. 

Finalmente, outras formas de transposifao consistem em re- 
tirar o cnptograma, nfo por colunas, mas sim mediante uma 
rota preestabelecida (espiral hordna ou anti-hordna etc.). Na 
figura 6 temos o texto em claro original, escnto na sequencia 
de uma espiral anti-hordna, com o texto cifrado por linhas. 

COMENTARIOS FINA1S 

£ importante fnsar que esta pnmeira parte do artigo visou 
apenas dar uma pnmeira e superficial nofao aos leigos sobre o 
assunto. 

Cada tecmca cnptogrdfica constitui, por si s6, um verdadei- 
ro curso, em especial as de transposiffo e as de substituifao 
polialfabitica, cuja cnptoandlise, alids, s6 foi possivel ap6s cer- 
ca de 300 anos de seu emprego. 

Os programadores de ALGOL, do Burroughs B-6900, por cer- 
to reconheceram, na mstnifSo TRANSLATETABLE daquela 
lmguagem, uma ferramenta para a cnptografia por substituifao. 
Contudo, os procedimentos rigidos e facilmente algontmaveis 
dos diversos processos permitem uma programafao tnvial para 
os usuinos de micros. 
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Figura 6 - Transposifao por rota 

Finalmente, aqueles que estiverem interessados em maiores 
detalhes sobre Cnptografia a ldpis e papel obterao respostas 
bastante completas nas referencias bibliogrdficas 2, 3 e 4. 
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MINAS DIGITAL 
O SHOPPING DA 
COMPUTAQAO 

• Vendas de micro-computadores 

• Vendas de pe<pas e componentes para micros 

• Assistencia t6cnica d micros 

• Vendas de livros e revistas sobre computa<?2o 

• Vendas de disquetes formuterios e frtas mag. 

• Cursos de digitagSo e programap§o 

NA MINAS DIGITAL 
VOCl ENCONTRA TUDO 
SOBRE MICRO-COMPUTADORES 

nurctf. 

201-7555 

Rua Tupinambas 1045 - Conj. 601/602 - Centro Rua Tom6 
da Souza 860 - Loja B - Savassi 



ATENDIMENTO POR REEMBOLSO POSTAL 
PARA TODO O BRASIL. 
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Na hora de fazer a sua fezinha na Loteria Esportiva, fornega os pa/pites 
ao D-8000, deixe-o preencher o cartao para voce e... boa sorte I 



Acerte na loteca 
com o D-8000 



I vo D 'Aquino Neto 






esmo os que nao entendem de futebol, nao acompa- 
nham os jogos esportivos ou nSd acreditam na sorte, 

vcz por outra, se sentem tentados a jogar na Lotena 

Esportiva. 



E nessa aJtura que surge a duvida de como preencher o 
cartao de apostas. Aleatonamente, atravds de urn sorteio do 
tipo earn ou coroa? Seguindo ngidamente os prognosticos das 
revistas especializadas? 

Creio que a combina^ao desses dois processos nos fomece a 
solu 9 ao mais satisfatona: urn sorteio com probabilidades de 
ocorrencia de cada um dos eventos (coluna 1 , coluna do meio, 
coluna 2), determinadas pelos prognosticos fomecidos pelas 
revistas esportivas. 



Entrando com os dados (porcentagem para cada um dos 13 
jogos) no D-8000, utilizando o programa listado a seguir, obte- 
remos no video, ou impresso, o cartao devidamente preenchi- 
do. Os palpites duplos ou tnplos ficam por nossa conta, ou po- 
demos compor um cartao baseado nos palpites fomecidos por 
dois cartdes preenchidos pelo computador. Neste caso, os mes- 
mos dados de entrada para o D-8000 nos fomecerfo os cartdes 
que nos servirao de base. 



JOGO 



COLUNA 1 



COLUNA DO MEIO 



COLUNA 2 I 



1 

2 

3 

4 

5 

6 
7 
« 
9 

10 
1 1 
12 
13 



X 

X 

X 




Figura 1 - Exemplo de cartao preenchido pelo D-8000 



Ivo O' Aquino Neto 4 Engenheiro EletrOnico. Trabelhe atuelmente na 
TELESC - Telecomunicagdes da Santa Catarina S/A onde 4 responsive! 
peia expansSo e implantapSo do Sistema de TeiesupervisSo da empress. 



CEAPRO MICROCOMPUTADORES LTD A 



CURSOS DE ESPECIALIZACAO PROFISSIONAL 

• MICROPROCESSAOORES APIICAOOS A C0NTR01E • 12/04/83 

TELEPROCESSAMENTO 

• TELEPROCESSAMENTO I • HARDWARE 16/04/83 

• TELEPROCESSAMENTO II • SOFTWARE • 11/04/83 
CONvtNlO SUPORTE ENGENHARIAOE SlSTEMAS DIGITAIS LTDA 



INFOHMACOES AV PRESIDENTE VARUAS S90 / OH 



BANANA - 85 

MICROCOMPUTAOOR PARA DESENVOLVIMENTO DE SOFTWARE E HARDWARE 
REVENOEOOR AUT0RIZAD0 



217 RIO DE JANEIRO • TEL |071| 233 5239 
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Loteria Esportiva 

10 '*• ****************** ****** 

20 * * 

30 • * 

40 * * -$ S $- L O T E C A -$ $ $- 

50 • * 

60 • * PROGRAMA DESENVOLVIDO POR: 

70 • * IVO D ' AQUINO NETO, EMs 02/01/1982 

80 • * 

90 ’ * ************************ 

91 • 

92 ' 

93 ' 

100 CLEAR 1 500 :DEFSTRX:DIMC1 ( 1 3 ) , CM( 1 3 ) ,C2 ( 1 3 ) , P 1 ( 1 3 ) , 

PM( 13) ,P2{ 13) ,X1 ( 13) ,XM( 13) ,X2( 13) ,X( 13) 

110 CLS: A$*"$ $$ LOTECA $ $ 5" :GOSUB 1 000 s PRIN 
TCPP,A$ 

120 PRINT:PRINT:PRINTTAB(7) "FORNECA SEUS PALPITES, EM 
PORCENTAGENS , PARA CADA UM DOS 13 JOGOS E SEU D-8 
000 PREENCHERA' UM CARTAO PARA VOCE . " :FORI= 1TO300 
0 • NEXT 

1 30 CLS:GOSUB500 :GOSUBl 500 sFORI* ITOI 000 :NEXT 
140 CLS:GOSUB500 :GOSUB2000 
200 END 
210 * 

211 ' 

212 ’ 

500 ' * * * SUBROTINA PARA DESENHAR O CARTAO * * * 

501 ' 

510 F2= 1 24 : A= 1 2 : B*23 :C=40 : D=5 1 

520 A$=" JOGO COLUNA 1 COLUNA DO MEIO COLUNA 2" 

530 PRINT®7 , AS : PRINT®1 36 , " 1 " : PRINT®200 , "2" : PRINT8264 , 

" 3" : PRINT®328 , "4" : PRINT®392 , "5" : PRINT9456 , "6" : PRI 
NT®5 2 0 , " 7 " : PR I NT®5 84,"8":PRI NT#6 48,"9":PRI NT® 7 1 1 , 
"10": PRINT®775 , "11": PRINT#B 39 ,"12": PRINT®903 , "13" 

540 FORI = 1 5431T015474: POKEI , 95 : NEXT 
550 FORIN= 1 5360TO1 6256STEP64 

560 POKEIN+A , F2 : POKEIN+B , F2 : POKEIN+C , F2 : POKEIN+D, F2 
570 NEXT 
580 RETURN 

591 ' 

592 • 

1000 ' * * * SUBROTINA PARA FAZER PISCAR O TITULO 

1001 ' 

1010 PRINT®0, STRINGS (64, 32) ; :FORI=1TO10 
1020 PP»INT( ( 64-LEN ( AS ) ) /2 ) : PRINT®PP , AS ; : FORJ m 1TO20 : N 
EXT 

1030 PRINT®0 , STRINGS (64,32); :FORJ*1TO10:NEXTJ,I 
1040 RETURN 

1050 * 

1051 ' 

1052 ' 

1500 ’ * * SUBROTINA PARA INTRODUgAO DE DADOS * * 

1501 ' 

1510 FORK= ITOI 3 

1520 PI (K)*1 45+64* (K-1 ) :PM(K)=1 59+64* (K-1 ) :P2(K) = 173+ 

64 * ( K- 1 ) 

1530 PRINT®P 1 ( K ) , " “ ; : INPUTC1 ( K ) : PRINTCPMt K ),"";: INPUT 
CM(K) :C2(K)-100-C1 (K)-CM(K) : IFC2 ( K ) '<0THEN1 530 
1540 GOSUB5 1 0 : FORF* 1TOK : PRINT®? 1(F) ,C1 ( F ) ; :PRINT®PM(F 
) , CM ( F ) ; :PRINT«P2(F) ,C2(F) ;: NEXTF , K : RETURN 

1550 ' 

1551 ’ 

1552 ' 

2000 ' * SORTEIO COM PROBAB I L I DADES PREDETERM I NADAS * 

2001 ' 

2010 FORH* ITOI 3 
2020 RANDOM 
2030 X ! =RND( 101 ) - 1 

2040 IPC1 ( H ) >»X ! X 1 (H)«"X":XM(H)-"";X2(H)="":GOTO2070 
2050 IFX ! <| *C 1(H) +CM( H )X1 ( H ) *" " : XM( H)*"X":X2(H)*"" :GOT 
02070 

2060 IFX!>C1(H)+CM<H)X1 (H)«="" :XM(H)*"":X2(H) = "X" 

2070 NEXT 
2080 FORH» ITOI 3 

2090 PRINT«P1 (H) ,X1 (H) ; :PRINT»PM(H) ,XM(H) ; :PRINT«P2(H 
) , X2 ( H ) ; 

2100 NEXT 

2110 PRINT897 3 , "<DESEJA IMPRIMIR O PROGNOSTICO S/N ?*> 

2120 IKS* INKEYS: IFIKS*""THEN2 1 20 
2130 IFIK$*"N"THEN2600 

2140 IFIKS="S"PRINT«960, STRINGS (63, J2 ) ; :GOTO2500:ELSE 
2110 

2150 ' 

2151 ' 

2152 ' 

2500 • * * * IMPRESSAO DO PROGNOSTICO * * * 

2501 • 

2510 LPRINT" " : LPRINT" " : FORW* 1 5360TO1 6359STEP64 : ZS«" 

2520 FORY*0TO6 3 : Z$*Z$+CHR$ ( PEEK ( W+Y ) ) : NEXTY : LPRINTZS : 
NEXTW 

2600 PRINT®973," <VOCE DESEJA NOVO PROGNOSTICO S/N ?> 

• ; 

2610 IKS* INKEYS : IFIKS* " "THEN26 1 0 

2620 IFIK$*"N"END a 

2630 IFIK$*"S"THEN1 30ELSE2600 ^ 




seu 

MICRO TEM ASSISTENCIA 
TECNICA DE GRANDE PORTE 



H3 mais de 1 2 anos a MS presta atendimento a uma serie de empresas, 
no conserto e manutengao de computadores dos mais diversos portes 
e marcas E toda essa bagagem tecnica esta tambem a sua disposigao, 
garantindo o desempenho mmterrupto do seu micro. 

• Socorro urgente teiefomco - chamou-cbegou! 

• Check-ups preventivos 

• Reparos 

• Substituigao de pegas com garantia 

• Substituigao do micro ou unidades penfencas 

• Contratos de assistenaa tecnica a empresas e particulares. 

Na MS a vida de sua maquina esta garantida. 




MS - Assistencia Tecnica a 
Microcomputadores 



Rua Astolfo Araujo, 521 - Tel.: 549-9022 
CEP 04008 - S. Paulo - Capital 

Representante no Brasil da: MDS - Mohawk Data Sciences/MSI - Data Corporation 



* SUPER LANQAMENTO * 

TK’S E CP-200 

• DEFENSOR 3D • BAZOOCA 

» INGLES II « G. PREMIO BRASIL 

* JOGOS DISPONiVEIS * 

TK’S E CP-200 



KING KONG 
MICROPAC 
LABIRINTO CHINAS 
CAVERNA 

matemAtica 



• COMBATE AtREO 

• drAcula 

• FUTEBOL 

• INGLES 

• ENTERPRISE 



PREQO UNICO DE CrS 4.500,00 

CP-500, CP-300 e SYS DATA 

• FUTEBOL 

• SANTA PARAVIA 

PREQO UNICO DE CrS 8.000,00 

ADQUIRA SEU SOFTWARE ATRAV^S DE REVENDEDOR OU 
PELA CAIXA POSTAL 

* NOVIDADE * 

RECEBA 120 PROGRAMAS (10 TODO MES) 

PREQO TOTAL 
LISTAGEM — CrS 15.000,00 
CASSETE — CrS 25.000,00 

SE VOCE JA COMPROU O NOSSO SOFTWARE E ENVIOU 
O CERTIFICADO DE GARANTIA, RECEBERA UM DESCON- 
TO AUTOMATICO DE CrS 3.000,00. 

ENVIE CHEQUE NOMINAL A: 



MICRO BOARD S/C LTDA. 

CAIXA POSTAL 18968 
SAO PAULO - SP - CEP 04699 
FONE: (Oil) 532-0923. 
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A maioria das linguagens nao perm item operapoes com numeros 
comp/exos. Este programa, em BASIC, torna isto possi'vel nos micros. 



Operates complexas 
em BASIC 



Valdir Aguilera 



Opera coes com Numeros Complexos 



- OPERACOES COMPLEXAS 

- AGUILERA : MAIO 1983 

Operacoes: modulo, argumento 

- RA: parte real do primeiro operando 

- RB: " " " segundo " 

- RC: " “ “ resultado 

- IA: " imaginaria do primeiro operando 

- IB: " ■ " segundo " 

- IC: " " • resultado 

-RE: " real do complexo cujo modulo ou argumento se requer 

- IM: ■ imag -■ " • " ... 

- RO: contera o modulo 

- ARG: " ■ argumento 



01 REM 

02 REM 

03 REM 

04 REM 

05 REM 

06 REM 

07 REM 

08 REM 

09 REM 

10 REM 

11 REM 

12 REM 

13 REM 

14 REM 

19 REM Comeco do programa 

20 SOME® 30 : RESTE®40: MULT*50: DIVIDA*60 
22 MODULO® 70: ARG® 80 

30 REM * * * ADICAO * * * 

35 RC*RA+RB : IC=IA+IB: RETURN 
40 REM * * * SUBTRACAO * * * 

45 RC-RA-RB: IC-IA-IB: RETURN 

50 REM * * * MULTIPLICACAO * * * 

55 RC®RA*RB-IA*IB: IC-RA*IB+RB*IA: RETURN 
60 REM * * * DIVISAO * * * 

65 IC®RB*RB+IB*IB: RC®(RA*RB+IA*IB)/IC 
67 IC®(RB*IA-RA*IB)/IC: RETURN 
70 REM * * * MODULO * * • 

75 RO-SQR(RE*RE+IM*IM) : RETURN 
80 REM * * * ARGUMENTO * * * 

85 ARG® ATN ( IM/RE ) : RETURN 

100 REM - EXEMPLOS DE UTILIZACAO 

101 REM - 1) Somar A=1-i com B=3+10i 

102 REM RA* 1 : IA--1: RB®3: IB*10: GOSUB SOME 

103 REM RC contera 4 e IC contera 9 : C*4+9i 

104 REM 2) Calcular o modulo e o argumento do 

105 complexo B do exemplo 1 

106 REM RE* 3: IM*10: GOSUB MODULO: GOSUB ARG 

107 REM RO contera o modulo de B 

1 08 REM ARG contera o argumento de B 

110 END 



m 



□ s numeros complexos sao ne- 
cessinos em muitas situagdes 
encontradas por matemiticos, 
l'sicos e engenheiros. 

Na Matemitica eles aparecem como 
uma pnmeira extensio dos numeros 
reais: o chamado campo complexo. Na 
Ffsica, sffo uteis nos estudos de movi- 
mentos oscilatdnos, entre outros. 0 En- 
genheiro Eletromco, por sua vez, socor- 
re-se dos numeros complexos para cal- 
cular propriedades de circuitos el^tncos, 
como a impedanaa, por exemplo. 

Em seginda, apresentamos um con- 
junto de instrugOes em BASIC que per- 
mitirao implementar em seu compu- 
tador as quatro operagQes complexas 
fundamentals (adigSo, subtragao, multi- 
pUcag^o e divisfo), permitindo ainda a 
obteng^o do mddulo e o argumento de 
um numero complexo dado. 

Consideremos o problema de conhe- 
cer o numero complexo C, que 6 obtido 
a partir dos numeros complexos conhe- 
cidos A e B por meio de uma das quatro 
operagdes fundamentals complexas, por 
exemplo C-A/B. O programa requer que 
o valor das partes real e imaginaria dos 
operandos A e B estejam armazenados 
nas vandveis RA, RB, IA e IB. 0 resul- 
tado ficarf contido nas vaniveis RC e 
IC, que representam as partes real e lma- 
gmina de C, respectivamente. 

Para o cdlculo do mddulo (RO) e do 
argumento (ARG), o programa requer as 
partes real e imagindna do numero com- 
plexo dado armazenadas nas vaniveis 
RE e IM, respectivamente. 

O programa deve rodar na maiona 
dos micros nacionais e estrangeiros. O 



uni co obsticulo pode estar na sin t axe da 
mstrugao GOSUB, que poderi requerer 
explicitamente uma constante em vez de 
uma vanivel. Neste caso, use as constan- 
tes defmidas nas linhas 20 e 22 para 
cada chamada tipo GOSUB. 



Valdir Aguilera 4 Professor com Do u to re man - 
to am Ffsica a d4 aulas particuiaras da lingua- 
gens FORTRAN, BASIC, ALGOL a Pascal. 
Valdir tambdm t rebel ha prastando assessor! a 
da software, atravds da firma Micro Espalho, 
em SSo Paulo. 
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Se voce ainda nao guardou o endere^o da 1 
CompuShop da Rua Dr. Mario Ferraz, 37, 1 
vai ser impossivel esquecer o novo. 

Av. Pres. Juscelino Kubitschek, 889. 
(entre a rua Joao Cachoeira e a 
rua Clodomiro Amazonas) 

A loja especializada em microcomputadores 



Presente mais uma vez 



Av Pres Juscelino Kubitschek, 889 - CEP 04543 - SSo Paulo - SP - Tels. : (Oil) 64-2806/852-7149 
Rua Dr. M&iio Ferraz, 37 - CEP 01453 - SSo Paulo - SP - Tels. : (Oil) 21(M)187/212-9004 - Telex (Oil) 36611 BYTE BR 
Estacionamento prdprio. Abertas de Segunda a Sexta das 9 <ls 19 horas e aos S&bados das 9 ^s 14 horas. 




Pergunta - Gostaria de saber para que 
serve fa as f undoes RAND e RND, uma 
vez que o manual do TK82-C nao d 
muito daro. Se poss/vel, ddem um 
exemplo dessas funpoes. (Henrique 
Soares, SP). 

MICRO SISTEMAS - A funp3o RND 
gera um numero pseudo aleatdrio en- 
tre 0 e 1, de uma sequenda de 65535 
numeros. Por exemplo: 

20 PRINT RND 
30 GOTO 20 

A instrupao RAND inicializa o RND 
na sequenda. Assim: 

10 RAND 3 

O programa anterior produzir3 a 
apresentapao dos mesmos numeros to- 
da a vez que o programa for rodado. 
RAND 0 ou simplesmente RAND nao 
inidaliza, mas gera no RND um nu- 
mero decorrente da contagem da quan- 
tidade de imagens enviadas a tela da 
TV 

Pergunta — Gostaria de obter informa- 
goes sobre Banco de Dados: o que sao, 
utilidade, funqao etc. (Roberto Nigir 
Adelson, RJ). 

MICRO SISTEMAS — £ um conjunto 
de dados estruturado de uma forma es- 
pedal. Normalmente esta estrutura 
tern a forma de uma 3rvore na qual um 
dado tern sob sua coordenapao diver- 
sos outros dados de tipos variados. A 
grande vantagem do Banco de Dados 6 
evitar a redundancia de dados, o que 
ocorre frequentemente com dados or- 
ganizados sob a forma de arquivos, que 
3 uma forma de organizapSo de dados 
muito utilizada. Para informap&es mais 
detalhadas leia o livro "Introdupao ao 
Sistema de Ger§ncia de Banco de Da- 
dos", de Leonardo Lelllis Pereira Leite. 

Pergunta — Tenho as seguintes duvi - 
das: os programas feitos para o NE- 
Z8000, DGT-100, TK82-C e TRS-80 
Mode/o III podem ser usados, sem ne- 
nhuma a/terapao, no CP-500? E o sis- 
tema operacional CP/M e o programa 
VisiCalc sao compati'veis com o CP- 
500? ( Cdsar C. Margarida, SC). 

MICRO SISTEMAS - 0 DGT-100 6 
compati'vel com o TRS-80 Modelo I. 
0 CP-500 3 similar ao TRS-80 Modelo 
III. Tudo que roda no Modelo I tam- 
b3m pode ser executado no Modelo 
III, mas nem sempre o inverso aconte- 



ce, pois embora sejam basicamente se- 
melhantes, o Modelo III tern o BASIC 
mais poderoso. 

J3 o TK82-C e o NE-Z8000 s2o si- 
milares ao Sinclair ZX81. Entre eles 
ha apenas pequenas diferenpas de no- 
me com relapao a certos comandos co 
como, por exemplo: a tecla NEWLINE 
no TK82-C corresponde 3 tecla EN- 
TER no NE-Z8000. Assim, os progra- 
mas feitos para o TK rodam no NE; e 
os programas feitos para o DGT-100 
tamb3m podem ser executados, sem 
nenhuma alterapao, no CP-500. Para 
rodar, entretanto, programas desenvol- 
vidos para o TK no CP-500 ser3 neces- 
s3rio fazer versoes do BASIC de cada 
equipamento. 

O CP/M pode ser implementado no 
CP-500 (nos EEUU ja existe o CP/M 
para o TRS-80 Modelo III), mas ainda 
n3o est3 dispom'vel no Brasil. Progra- 
ma semelhante ao VisiCalc para o CP- 
500 s3o comercializados por diversas 
softhouses brasileiras, com o prepo de 
aproximadamente 15 ORTNs. Mas o 
VisiCalc n3o existe para o CP/M, exis- 
tem sim, outros programas (como, por 
exemplo, o SuperCalc) que apresentam 
o mesmo resultado. 

Pergunta — Sou possuidor de um Sin- 
clair 1000 com 2 i'b de RAM (sem ex- 
pan sao). Resolvi fazer uma listagem da 
memdria desde o enderepo 0 atd o en- 
derepo 65535 atravds deste programa: 
10 PRINT "ENDEREQO"; TAB 10; 
"BYTE" 

20 FOR A=0 TO 65535 



30 PR IN T A; TA B 1 1; PEEK A 

35 SCROLL 

36 NEXT A 

E obtive o seguinte resultado: 
o De 0 atd 16943, bytes em hexade- 
cimal e zeros; 

o De 16944 atd 22461, somente ze- 
ros; 

o De 22462 atd 65535, bytes em he- 
xadecimal e zeros. 

Pergunto: por que entre os endere- 
qos 16944 atd 22461 tim somente ze- 
ros? Atd que endereqo o sistema ope- 
racional do computador esta contido? 
Seria possi'vel esclarecer melhor a ocu- 
paqSo da memdria? E quando se usa 
linguagem de mdquina? (Nelson Lom- 
bardi, SP). 

MICRO SISTEMAS — A organizapSo 
da memdria 4 explicada no manual do 
micro. Se voce n3o o tiver, procure al- 
gu6m que tenha e estude com aten- 
p3o. Para conhecer um pouco mais so- 
bre organizap3o da memdria de equipa- 
mentos compati'veis com o Sinclair 
ZX81, leia a materia ''Pequenas me- 
mdrias, grandes economias", publicada 
em MICRO SISTEMAS n9 22 (edip3o 
de julho). 

Quanto 3 organizapao de memdria 
do enderepo 0 ao 65536, o que aconte- 
ce 3 o seguinte: de 0 a 8192 temos o 
monitor residente (ROM). De 16384 
at3 18432 (em equipamentosde 2 Kb, 
pois para os de 16 K o enderepo final 
da memdria 3 32768), temos a 3rea da 
RAM (programas, vari3veis, imagem 
etc.). 

Os outros enderepos s3o apenas ''es- 
pelhos", desses dois blocos. Ali n3o 
h3 memdria, apenas uma "imagem". 
Em equipamentos de 2 K a "imagem" 
6 sempre repetida de 2 em 2 K. Veja 
na figura 1 a disposipao da memdria 
em micros de 2 K e de 16 K de RAM, 
e observe que sd existe memdria onde 
est3 em cinza. 



configurable 16K da RAH 



0 


SK 


I6K 


2AK 


3?K 


4 OK ASK 


)6K 64K 


HON 1 TOR 
RES I DEN 
TE 

(ROM) 


CfiPlA 

DO 

HON! TOR 


Area de 

PtOCRA- 

HA 

(RAM) 


Area de 

PROGRAMA 


c6pia 

DO 

MONITOR 


CflPIA 

DO 

MONITOR 


cOpia oa 
Area de 

PROCRAHA 


c6pia da 
Area de 

PROCRAHA 



0 8192 16384 24576 32768 40960 49152 57344 65536 



I6K dc RAM 



configur«t«o 2K de RAH 

2 K de RAH 




Figura I - Organizapao da memdria 
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SuperVisiCalc. 

ludo o que o VisiCalc faz e mu'rto mais. 



Leitura autom&tica de 
memdria disponivel 
at6512K (sem 
necessidade de VC Expand) 



Emais: 

• Totalmente 
compativel 
com VisiCalc 

• Tabula^ao 
automatica 
para c61ulas de 
entrada de dados 

• Compativel com discos 
rigidos tipo Winchester 
ou discos de 8’ 

• Coluna invisivel 







LUCROS E PERDAS 



















^ PROJECAO 











1982 


%' 


1983 


X 


[ RECEITA LIQUIDATE 


VENDAS 


2865006 


6734000 


135 


— 





[ CUSTO DOS PfiODUTOS 


VEHDIDOS 


1948200 


4781140 


145 


12831000 


lM/^ 


HAR6EH BRUT A 




916800- 


1952860 


113 






DESPESAS COH VENDAS 




458400 


1043770 


128 


077 

L : . wVvVw 


162 


DESPESAS FIHAHCEIRhS 




200550 


538720 


169 


1729060 


221 


• LUCRO OPERACIOi 


l 


257856 


370370 


44 




1 


I IHPOSTO DE RENDA . 




77355 


118518 


53 




J 


9 LUCRO L1QUID0 


18-0495 


251852 


40 




-J 



Colunas de tamanho 
vari&vel 



. C61ulas invisiveis 
e protegidas 



super 

trabalha em 40,70 ou 80 colunas ) 

Prego de langamento: apenas Cr$ 150.000,00 



Com o VisiCalc, o programs de planejamento 
eletronico, centenas de milhares de usuarios no 
mundo todo acharam a melhor maneira de 
aproveitar toda a capacidade e eficiencia de seus 
microcomputadores nos mais diversos campos. 
Essa utilizagao cada vez mais frequente fez 
aparecer uma s6rie de limitagoes que precisaram 
ser suplantadas. Foi assim que surgiu o 
SuperVisiCalc, um programa criado para 
otimizar o trabalho j& iniciado por um VisiCalc. 

Um programa totalmente compativel com ^ 
os arquivos que voce ja criou com o 
VisiCalc em microcomputadores tipo 
Apple- Unitron AP II e Maxxi-e que como 
voce pode ver na tela acima, permite 
uma flexibilidade muito maior durante 
a sua utilizagao. 




Como o SuperVisiCalc utiliza os mesmos 
comandos ao VisiCalc, voce nao precisa aprender 
nada de novo. Se voce 6 principiante, vai ver 
como 6 f&cil comegar com o SuperVisiCalc. 

Com seu manual de operagao totalmente em 
portugues e por sua facilidade de uso, 6 sem 
duvida um 
oscasos one 
informagoes. 

Procure o seu SuperVisiCalc na Tiger 
ou na CompuShop. 

Atengao: lojas especializadas 
interessadas em revender o 
SuperVisiCalc, procurar Tiger 
ou CompuShop, distribuidores 
exclusivos para todo o Brasil. 



1GB) 



(CompuShop 



Eletronica Ltda. 



Av. Reboupas, 3199 - CEP 05401 - S3o Paulo -SP 
Tel.: (0111 212-9522 - Telex (011) 21237 TGER BR 



Rua Dr. Mdrio Ferraz. 37 - CEP 01453 -SSo Paulo - SP 
Tels. : (Oil) 210-0187/212-9004/815-0099 Telex (Oil) 36611 BYTE BR 
Av. Pres. Juscelino Kubitschek. 889 - CEP 04543 -Sdo Paulb - SP 
Tels.: (011)64-2806/852-7149 



SuperVisiCalc £ marca registrada da Royal Software. 



£ preciso ser um as no volante para nao sofrer nenhum acidente 
neste circuito. Entao, esta preparado? A "pole position " 6 sua... 



0 micro da a largada ! 




Renato Degiovani 



O programa F6rmula 1 6 umjogo 
que vai testar os seus reflexos e 

a sua criatividade em programa- 

9*0. Ele foi projetado, em Assembler e 
BASIC, com uma estrutura onde pode 
ocorrer uma infinidade de modifica^es. 
O objetivo, no entanto,^ sempre o mes- 
mo: andar o maior numero de quil6me- 
tros sem sofrer um addente. 

Para come (far grave o Monitor Assem- 
bler (n9 23 de MS). A seguir digite uma 
linha 1 REM com 232 caracteres (pode 
ser qualquer um) e entre com os dados 
do bloco Assembler. Ao terminar confi- 
ra tudo para ver se n*o hi erro. 

Agora elimine o monitor ficando s6 
com a linha lea seguir digite a parte 
em BASIC. Grave na fita e teste o pro- 
grama. De umas voltas para aentir o 
drcuito. Ande nas tres veloddades (o 
reoorde profissional 6 16.459 km) e 
quando e stiver familiarizado com a me- 
canica do jogo, entao, sera hora de fazer 
algumas altera^es. 

EM ASSEMBLER 

0 bloco Assembler fundona da se 
guinte forma: determina o formato da 



1? se^ao da pista (linha 0) para curva a 
direita, esquerda ou reta; testa se o carro 
vai colidir com alguma coisa; apaga o 
carro; SCROLL para baixo; identifica a 
tecla pressionada; desenha o carro em 
sua nova posi9*o; conta mais um Km; 
desenha o obstdculo na pista; reimaa a 
opera9ffo. Essa opera^o i repetida at£ 
que o carro colida com um obsticulo 
qualquer. Se houver oolisffo, enUTo o 
programa desenha os destroys do carro 
e retoma ao BASIC com a quilometra- 
gem percorrida. 

Veja agora alguns endere90S impor- 
tantes: 

16514/16515 — Esse 6 o endere90 de 
impressSo do carro. Ele tern que ser ini- 
dalizado pelo BASIC, antes da chamada 
USR (veja linhas 1170 e 1190). Se isto 
n*o for feito o programa se perderd. 
16516/16517 - Quilometragem percor- 
rida pelo carro. £ preciso zerar essas po- 
sies antes do USR. 

16518/16519 — Arquivo da coluna de 
impressSo da pista. TamWm tern que ser 
inicializado pelo BASIC (linhas 1140, 
1150e 1160). 

16524 — Determina o formato da pista. 
Podem ser usados apenas dois valores: 



52 e 53 (o 52 se asscmelha a pista de 
terra). 

16547/16565 — Determina a largura da 
pista. Esses dois endere^s devem conter 
os mesmos valores. Podem ser usadas 
larguras de nove caracteres at 6 1 8 carac- 
teres. 

16681 - Velocidade do carro. Pode ser 
usado qualquer valor de 0 a 255. 

16692 — Distanda do obstdculo i late- 
ral esquerda da pista. Admite valores 
entre 1 e 7. 

16703 — Obstdculo na pista. Pode ser 
usado qualquer cardter como tal e para 
uma pista sem obstdculo basta gravar 0 
nesse endere90 (isso 6 bom para treino). 

Esses parametros devem ser seguidos 
rigorosamente, caso oontrano, podem 
surgir problemas impossiveis de serem 
resolvidos. O formato da pista 6 o resul- 
tado de uma s^rie de fatores como tem- 
po de exe 019*0, veloadade do jogo e 
um elemento aleatdrio. Alguns arcuitos 
poderfo ser mondtonos, outros diverti* 
dos e at 6 mesmo engra9ados. 0 impor- 
tante 6 tentar achar um sistema que nos 
agrade mais. 



52 
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EM BASIC 







Listagem BASIC 




l 1000 


PRINT " veja texto " 


1210 


POKE 16516,0 




1 1010 


PRINT AT 18,0; "1 


’llCRO SISTEd 


1220 


POKE 16517,0 




I AS l«24",,,,,"RENAT0 


DEGIOVANI - 


1230 


FOR A = 3 TO 11 STEP 2 




1983" 




1240 


PRINT AT A, 27; "E3 □" 




1020 


IF INKEYJs"" THEN GOTO 1020 


1250 


NEXT A 




1030 


CLS 




1260 


FOR A = 1 TO 6 




1040 


PRINT AT 4,0; "VEL0CIDADE DO 


1270 


PRINT AT 1,25; "ATENCA0" 


; at 


30G0"; AT 7,8; "A = AUTO ESC01A"; 


1,25; 


EHSHn 




1 AT 10,8; "D = D0HINGUEIR0"; AT 13, 


1280 


NEXT A 




I 8; "P 


= PR0FISSI0NAL" 




1290 


FOR A = 3 TO 11 STEP 2 




1050 


IF INKEYS="" THEN GOTO 1050 


1300 


FOR 0=1 TO 4 




1060 


LET U$= INKEYl 




1310 


NEXT B 




1070 


IF US ="A" THEN 1 


POKE 16681,1 


1320 


PRINT AT A, 27; "■ ■" 




2 






1330 


NEXT A 




1080 


IF US="D" THEN 1 


POKE 16681,8 


1340 


LET X=USR 16520 




1090 


IF U8="P" THEN 1 


POKE 16681,2 


1350 


LET US=" 


n 


| 1100 


CLS 




1360 


PRINT AT 0,0; US; uS,uS; AT 0, 


1110 


FOR A=1 TO 21 




24; X; 


" Kd" 




1120 


PRINT AT A , 9 ; "Q 


ii 


1370 


FOR A=1 TO 20 




1 " 






1380 


NEXT A 




1 1130 


NEXT A 




1390 


PRINT AT 20,0; U$; US; "TECLE 


I 1140 


PRINT AT 0,9; 




d PARA dUDAR A VEL0C IDADE" 




I 1150 


POKE 16518, PEEK 


16398 


1400 


IF INKEY$=" " THEN GOTO 


1400 


1160 


POKE 16519, PEEK 


16399 


1410 


IF INKEY$="d" THEN GOTO 


103 


1170 


PRINT AT 16,16; 




0 






1180 


POKE 16514, PEEK 


16398 


1420 


GOTO 1100 




1190 


POKE 16515, PEEK 


16399 


1430 


SAVE "FORdULA" 




1200 


PRINT "MD" , , 'OIE" 


1440 


RUN 


■ 

ff.j 



A parte em BASIC serve para tftulos 
e micializa^So do jogo. A numerate) das 
linhas n£o 6 import ante e , com exc* 9 So 
das linhas mencionadas, todas as outras 
podem ser modificadas. 

Veja agora algumas linhas import an- 
tes em BASIC: 

1000 - Essa 6 a linha do tftulo. Use o 
desenho do quadro para digit$-la. 

1140/1150/1160 - Inicializa^o da pis- 
ta. Pode Ser usada qualquer coluna da li- 
nha 0, respeitando-se a largura da pista e 
o limite de 32 caracteres por linha. 

1 170/1 1 80/1 190 - Iniaaliza^o do car- 
ro. O carro pode correr em qualquer li- 
nha de 3 a 19. 

1200 - Desenho do carro. A parte em 
Assembler possui outro desenho seme- 
lhante. Uma modifica^ao nessa linha 
nffo modifica o formato do carro. 

1210/1220 — Zera o contador de qui- 
lometros. 

1340 — Chamada para o Assembler. O 
programa retoma ao BASIC com quilo- 
metragem na varidvel X (pode ser usada 
qualquer varidvel ou matriz). 

Esses s2o alguns pontos import antes 
que podem auxiliar na modifica 9 fo do 
jogo. £ preciso ir tentando aos poucos e 
anotando os resultados at 6 que o siste- 
ma fique perfeito. 

OPERAgAO 

Ao rodar o programa, o sistema fari 
a apresenta^fo e esperara at 6 que uma 
tecla qualquer seja pressionada. Logo 
ap6s, serd pedida a veloadade do jogo 



Bloco Assembler 



16514 


00 


00 


00 


00 


00 


00 


2A 


86 


16522 


40 


3A 


35 


40 


CB 


47 


28 


0A 


16530 


2B 


7E 


3C 


FE 


77 


20 


15 


23 


16538 


18 


12 


FE 


FF 


28 


0E 


23 


E5 


16546 


01 


0C 


00 


09 


7E 


El 


3C 


FE 


16554 


77 


20 


01 


2B 


22 


86 


40 


3E 


16562 


09 


77 


01 


0C 


00 


09 


77 


2A 


16570 


82 


40 


01 


21 


00 


A7 


ED 


42 


16578 


AF 


BE 


20 


06 


23 


BE 


20 


02 


16586 


23 


BE 


C2 


46 


41 


2A 


82 


40 


16594 


77 


23 


77 


23 


77 


09 


77 


2B 


16602 


77 


2B 


77 


2A 


0C 


40 


01 


B4 


16610 


02 


09 


11 


21 


00 


E5 


19 


D1 


16618 


EB 


ED 


B8 


AF 


06 


20 


23 


77 


16626 


10 


FC 


CD 


BB 


02 


7D 


2A 


82 


16634 


40 


FE 


F7 


20 


03 


2B 


18 


05 


16642 


FE 


EF‘- 


20 


01 


23 


22 


82 


40 


16650 


36 


87 


23 


36 


9D 


23 


36 


04 


16658 


01 


21 


00 


09 


36 


04 


2B 


36 


16666 


AD 


2B 


36 


87 


2A 


84 


40 


23 


16674 


22 


84 


40 


21 


00 


00 


3E 


08 


16682 


BC 


23 


20 


FC 


3A 


34 


40 


E6 


16690 


07 


FE 


06 


20 


0C 


06 


00 


4F 


16698 


2A 


86 


40 


09 


36 


80 


00 


00 


16706 


00 


C3 


88 


40 


2A 


82 


40 


A7 


16714 


ED 


42 


36 


01 


23 


23 


36 


9D 


16722 


09 


36 


04 


2B 


36 


17 


2B 


09 


16730 


36 


87 


23 


36 


81 


23 


36 


IB 


16738 


ED 


4B 


84 


40 


C9 









e ent£o come 9 ard a corrida contra os 
obstaculos. 

Para dirigir o carro, basta utilizar a 
direct) das teclas 5 e 8 e quando houver 
um acidente, qualquer tecla pressionada 
produz uma nova corrida. 



Renato Degiovani i formado em Comunica- 
p So Visual e Desenho Industrial pela Pontiff- 
da Universidade CatOlica do Rio de Janeiro. 
Hi mats de um ano utilize um NE-Z8000 para 
cilculos em sua ire a de trabalho. 



Nao pare seu programa 
nem perca a memoria 

GERATRON 

Gerador Eletronico Portatil de 200 VA 
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G.D.M. uma loja 
com 

tratamento Pessoal 



J.R. Sysdata e 

Digitus p/entrega 
imediata TK 82, 
TK 85, CP 200, 
300 e 500 
• LEASING 
e credito direto 
Assistencia 
Tecnica. 

Temos programas 
prontos em fita. 

Gon imformAtica limitada 

R. Conde de Bonfim 346 
Lj 307 - Tijuca - RJ 
Tel. 284-8744 



gursss 



• A ChipShop oferece regularmente cursos 
de: BASIC BSsico, duragSo de 15h, em uma 
semana; e BASIC Avangado, duragao de 24h, 
em duas samaras As aulas priticas sao minis- 
tradas em laboratbrio prbprio, com um com- 
putador para cada dois alunos. Informagbes h 
Rua OfSIia, 248 (em frente ao Shopping Eldo- 
rado). tone: (Oil) 21 1 -4261 . SSo Paulo, SP. 

• Cursos de Linguagem BASIC sao promovi- 
dos pelo Centro de Treinamento Universida- 
de-Empresa, com 24h de duragSo, das 19:30 
As 22:30h. O objetivo do curso 6 treinar pro- 
fissionais de outras areas em Processamento 
de Dados, enfatizando o desenvolvimento de 
aplicagbes para micro oomputadores. Maiores 
informagbes na Avenida Faria Lima, 99 an- 
dar, cjs. 906/909, Itaim-Bibi, tel.: (Oil) 
212-3361, SP. 

• O Centro de ProdugSo da Universidade do 
Estado do Rio de Janeiro — CEPUERJ, estS 
oferecendo os seguintes cursos na area de in- 
formatica: AplicagSo dos Computadores Ele- 
trbnicos na Engenharia, de 12/09 a 11/10, as 
2as., 3as., 4as. e 5as. feiras, das 19:00 Ss 
22:00h; TScnicas Avangadas de ProgramagSo 
de mini/microcomputadores em linguagem 
BASIC, de 03/10 a 04/1 1, as 2as., 4a$., e 6as. 
feiras, das 19:00 As 22:00h. Inscrigbes e infor- 
magbes na Rua SSo Francisco Xavier, 524, 
PavilhSo Haroldo Lisboa da Cunha, 210 a 
214, tels.: (021) 264-8143 ou 284-8322, 
r: 2707 ou 2757, Rio de Janeiro, RJ. 

• IntrodugSo ao BASIC; DOS 500 e Inicia- 
g3o a computagSo (10 a 16 anos) sao os cur- 
sos qua a CP Systems SC/Ltda. esta promo- 
vendo, com turmas pela manhS, tarde e noite, 
de segunda a sSbado. As aulas sSo teoricas e 
prSticas com a utilizagSo de microcomputado- 
res. A CP Systems oferece tambSm cursos por 
correspondence, incluido um TK82-C como 
material didStico. Inscrigbes: Av. Paulista 
2073, cj. 1212, Conjunto Nacional, Horsa I, 
tel.: (011) 255-5454, SP. 

• A AcScia promove regularmente curso de 
BASIC e Aplicativos. Maiores informagbes na 
Av. Paulista, 2073, cj. 216, Ediffcio Horsa, 1, 
ou pelo telefone: (011) 288-1206, SSo Paulo, 
SP. 

• A DATA RECORD — Cursos de Processa- 
mento de Dados oferece cursos de Linguagem 
COBOL, as tergas e quintas-feiras, com dura- 
gSo de 50h. Maiores informag&es na Av. Santo 
Amaro, 5450, tel.: (011) 543-9937, SSo Pau- 
lo, SP. 

• A MICRO-KIT esta promovendo regular- 
mente cursos de BASIC para adultos e crian- 
gas e cursos aplicativos para microcomputado- 
res como VisiCalc, VisiTrend, VisiPlot, entre 
outros. A loja esta langando. tambSm, um sis- 
tema de aulas particulars solicitadas por 
clientes que desejem receber informagbes dire- 
tas e pormenorizadas sobre microcomputado- 
res. Estas aulas serSo dadas na loja com horS- 
rio previamente marcado pelo telefone: (021) 
267-8291. O enderego da MICRO-KIT a Rua 
Visconde de Piraja, 303/210, Ipanema, RJ. 

• A Engemicro e o Centro Educacional Car- 
valho de Mendonga estao promovendo cursos 
regulares de: ProgramagSo BASIC I; Lbgica 
Digital I; Lbgica Digital II; Microprocessador 
Z-80; Microprocessador 8080/85; Circuitos 
Logicos CMOS; Amplificadores Operacionais, 
Microprocessador 8086 e Teleprocessamento. 
As inscrigbes estSo abertas atendendo a horS- 
rios pela manhS, tarde e noite ou aos sabados 
Maiores informagbes pelos telefones: (021) 
220-8820 ou 220-7009 ou na Rua Evaristo da 
Veiga, 20, Rio de Janeiro, RJ. 



• "AnSlise de Formuiarios", "Organizagao e 
MStodos" e "Levantamento e Documentagao 
de Sistemas" sSo os cursos que a Sys Informa- 
tion estara realizando de 21/09 a 24/09 (o pri- 
meiro), de 28/09 a 01/10 (o segundo) e de 
05/10 a 07/10 (o terceiro). Estes cursos se rSo 
ministrados no Hotel San Marino em SSo Pau- 
lo. Maiores informagbes pelos telefones: (01 1 ) 
210-5292 ou 813-4726, SP. 

• A Informax estara promovendo no mesde 
setembro os seguintes cursos: IntrodugSo a 
Microinformatica, a partir do dia 19; eo Cur- 
so de BASIC, a partir do dia 20. Os dois cur- 
sos terSo a duragSo de quatro semanas. A In- 
formax tambSm promove cursos particulares 
em empresas. Maiores informagbes na Av. Bri- 
gadeiro Faria Lima, 1857, tel.: (01 1) 814-0682, 
SSo Paulo, SP. 

• O DISCOVER English Courses esta intro- 
duzindo no mercado dois cursos: "Option 
Systems" e "Discover Tradugbes". O primeiro 
a um curso completo de terminologia avanga- 
da em ingles, para os executivos de PD, analis- 
tas e todos os profissionais da area de infor- 
matica. Ja o segundo a um curso de tradugbes 
tbcnicas ingISs/portugues — portugues/ingISs, 
exclusivas tambSm para a area de informatica. 
Turmas abertas. Maiores informagbes na Rua 
Professor Gabizo, 225, Tijuca, Rio de Janeiro; 
ou pelo telefone: (021) 228-2798, RJ. 

• A Fotoleo Informatica promove regular- 
mente cursos de IntrodugSo ao BASIC e BA- 
SIC Avangado. Os cursos tern duragSo de dois 
meses, com tr§s aulas por semana. Inscrigbes 
e informagbes pelo tel.: (011) 37-2702, Sao 
Paulo, SP. 

• A Bytess Digital Eletronica e Informatica 
oferece curso de Linguagem BASIC, com du- 
ragSo de 20h (quatro horasde aulas praticas). 
A Bytess atende tambSm grupos fechados de 
empresas. Maiores informagbes na Rua Hun- 
gria, 526, Jardim Europa, tel.: (01 1 ) 210-7681 , 
SSo Paulo, SP. 

• A SUCESU-RS esta oferecendo os seguin- 
tes cursos: Plano Diretor de Informatica, de 
19 a 23 de setembro, das 19:00 as 22:00h; 
Auditoria em Processamento de Dados, de 06 
a 07 de outubro, das 09:00 as 12:00h. O en- 
derego da SUCESU-RS a Rua dos Andradas, 
1560, 189 andar, cj. 1801, Galeria Malcon, 
90.000, tel.: 24-0053, Porto Alegre, RS. 

seminArios 

• A Universidade Metodista de Piracicaba 
promovera, de 03 a 07 de outubro, a "I Sema- 
na de Informatica". Durante essa semana se- 
rffo realizadas as seguintes palestras: Microin- 
formatica, Auditoria em Processamento de 
Dados, Videotexto, Microfilmagem, entre ou- 
tras. Maiores informagbes na Rua Rangel Pes- 
tana, 762 ou pelo tel.: (0194) 33-5011, Pira- 
cicaba, SP. 

• "Sistemas Gerenciais de Banco de Dados 
para Microcomputad'ores — D. BASE II e 
MDBS III" a o seminario que a AD Data Edu- 
cagdo e Informatica estara promovendo, de 
14 a 16 de setembro. O enderego para infor- 
magbes a Rua Jobo Ramalho, 818, Perdizes, 
SSo Paulo, tel.: (011) 864-8200, SP. 

• A AssociagSo Brasileira de AdministragSo 
e ConservagSo de Energia — ABACE estara 
promovendo em outubro o seminario: "Con- 
trole de Processos e ComputagSo Grafica" 
Maiores informagbes poderSo ser obtidas na 
Av. Paulista, 2073, Ediffcio Conjunto Nacio- 
nal Horsa I, sala 1020, tel.: 285-2490, SSo 
Paulo, SP. 

• Para mformar ao leitor sobre os cursos que 
estSo sendo oferecidos, a revista recolhe in- 
formagbes em dlversas instituigbes ou as rece- 
be pelo correio. Portanto, nSo nos responsabi- 
lizamos por quaisquer alteragbes posterior- 
mente efetuadas por estas instituigbes nos 
programas ou pregos. 
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CURSOS Di APfRfUCOAHf HIO 



MAIS SUCESSO RARA VOCE! 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voc€ o mais moderno ensino 
tecnico programado e desenvolvido no Pafs. 






Este CURSO, especialmente programado, oferece os 
fundamentos de Lmguagem de ProgramagSo que domma o umverso 
dos microcomputadores. Dmdmico e abrangente. ensina desde o BASIC 
b4sico ate o BASIC mais avangado. inclumdo nogoes b£$icas sobre 
Manipulagao de Arquivos. Tgcnicas de Programagao, Sistemas de 
Processamento de Dados, Teleprocessamento. Multiprogramagao e 
T6cnicas em Linguagem de Maquina, que proporcionam um grande 
conhecimento em toda a area de Processamento de Dados 



sseerae 



KIT CEDM Z80 
BASIC Cientlfico. 

KIT CEDM Z80 
BASIC Simples. 

Gabartto de Fluxograma 
E 4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 



at 






Sao mais de 140 apostilas com mformagdes completas e sempre 
atuaiizadas Tudo sobre os mais revolucion£rio CHIPS. E voce 
recebe. aiem de uma solida formagSo teorica, KITS elaborados 
para o seu desenvolvimento pr^tico Garanta agora o seu futuro. 



|c i o Vs T 

inanu 



CEDM 20 KIT 
de Ferramentas. I [ » 

CEDM 78 KIT 
Fonte de Alimentagao I 
5v/1 A. CEDM 35 KIT 
Placa Experimental 

CEDM 74 KIT I ........ . 

de Componentes. 

CEDM 80 I - 

MICROCOMPUTADOR 
Z80 ASSEMBLER 



Metodos novos e m^ditos de ensino garantem um aprendizado 
pratico muito melhor. Em cada nova ligSo, apostilas ilustradas 
ensmam tudo sobre Amplificadores, Caixas Acusticas, Equalizadores, 
Toca discos, Sintonizadores AM/FM, Gravadores e Toca Fitas, Capsulas 
e Fonocaptadores. Microfones. Sonorizagao, Instrumentagao de Medidas 
em Audio, T#cnicas de Gravagao e tamb£m de ReparagSo em Audio. 



x«u i man in 



*li 
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CEDM 1 • KIT de Ferramentas. CEDM 2 - KIT Fonte de AlimentagSo 
♦ 15 15/1A CEDM 3 - KIT Placa Experimental 
CEDM 4 KIT de Componentes. CEDM-5 - KIT Pr6-amplificador 
Estereo CEDM 6 • KIT Amplificador Estereo 40w. 



Voce mesmo pode desenvolver um ritmo prdprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado ftcil. E 
para esclarecer qualquer duvida, o CEDM coloca 4 sua disposigdb uma 
equipe de professores sempre muito bem acessorada. AI6m disso, voc6 
recebe KITS preparados para os seus exercfcios prAticos. 

Agil, moderno e perfeitamente adequado A nossa realidade, os CUR- 
SOS CEDM por correspondence garantem condigfies ideais para o seu 
aperfeigoamento profissional. 






VocS tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 

Em poucos dies voc6 recebe nossos catAlogos de apresentagao. 



rCflM Avemda SAo Paulo, 718 - Fone (0432) 23-9674. 
ImJULM I CAIXA POSTAL 1642 -CEP 86100 - Londrina • PR 
CURSO DE APERFEIQOAMENTO POR CORRESPONDENCE 

Sollcito o mais rApido possivel informegOes sem compromisso sobre o 
CURSO de 



Bairro CEP 








A aritm6tica decimal normal e a aritmitica bindria de ponto 
flutuante do BASIC nao sao a mesma coisa. Veja por que. 



0 erro de truncamento 
em BASIC 



Akeo Tanabe 



^r| a antmetica decimal normal, uma expressao como 2,0 
IVI - 0,2 . 10,0 = 0,0 constitui-se numa verdade matemd- 
X ^1 tica. Entretanto, ao se avaliar o primeiro membro da 
identidade com a antmltica de ponto flutuante da linguagem 
BASIC, essa expressao deixard de represen tar uma verdade. 
Isso ocorre porque nem sempre o zero decimal corresponde, 
em BASIC, a um zero computacional. 

0 objetivo desse artigo 6 mostrar por que a identidade mate- 
mdtica nao 6 preservada quando se usa a antmdtica de ponto 
flutuante do BASIC. Esse quase absurdo matemdtico pode ser 
explicado pelo erro de truncamento, que explicaremos a seguir 
fazendo uso do conhecimento sobre progressdes geomdtncas, 
materia essa constante do ensmo da Matemdtica do Segundo 
Grau. 



A ARITMfiTICA DO BASIC 

O leitor deve estar lembrado das dlzimas periddicas, na 
antmdtica ensmada nos cursos de Pnmeiro Grau. Nestas, um 
conjunto de algansmos se repete lndefmidamente^A fra^o 
(23/99), por exemplo, gerari a dizima pen 6 dica 0,53. 0 tra$o 
em cima do numero 23 6 usado para indicar que ele se repete 
indefmidamente. Assim, 0,55 =0,23232323... 

Se se restnngir apenas ao campo dos numeros reais, este 
numero nao tem representagao exata. Ele somente terd repre- 
sentagSo exata no campo dos numeros racionais ou quando 

for escnto como a fra 9 ao (23/99). 

A linguagem BASIC, quando tratando valores num^ncos, 
nao trabalha na base decimal. Ela usa a base dois e trabalha no 
campo dos numeros reals, nSo com os numeros racionais. Nes- 
te trabalho, sera mostrada apenas a antmltica dos numeros 
reais, deixando de lado a antmltica dos numeros inteiros. Co- 
mo a dizima periodica (ou o seu equivalente em uma base 
qualquer) pode ser estudada como um problema especial de 
progressed geom^tnca (P. G.), optou-se por um tratamento 
mais generalizado. 



Seja o numero: 



0 ' a iV a n 



da base B. 

Esta representa^So pode ser expbcitada na forma: 





l 



-(n+l ) 



B 



2 

,-(n+2) 



a r. a i a T 

. n 1 . 2 

B -2n B -(2n+1 ) B -(2n+2) 

isto 6, os algarismos a, , a 2 , ..., a n da base B se repetem indefi- 
nidamente. 

A especifica^ao explfcita do numero facilita a \asual 1 za 9 fo 
da expressed como a soma dos termos de uma progresseo geo- 
mdtnca (P. G.). 

Conhecidos o primeiro termo da P. G. e o valor da razlo, 
poderemos determmar o limite para o qual tende essa soma in- 
hnita. Como podemos ver, o primeiro elemento desta P. G. 6: 



A 



B 



n 



onde 



A= a, .B 



n- 1 



.B n-2 + 



+ a„.B° ou A= (a.a_...a„)_ 
n 1 2 n B 



A razlo q, menor que 1 , 6 dada por 




sendo a t o pnmeiro termo da P.G. e q a razlo, a soma 6 dada 
por: 



s= 
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Aplicando esta fdrmula para o nosso caso, vem: 




Esta 6 tamtem, alids, a fbrmula gen^nca para determinar a 
geratnz (numero racional para o qual a soma tende no limite) 
do numero 



Exemplo: 



Neste caso, os parametros a serem considerados na fdrmula 
sfo B =16, n=l e a, =3. A geratnz serf: 



16-1 15 5 

donde o numero (0,3)! 6 6 gerado pelo racional (1/5) ou, 
ainda, pelo valor (0,2)i O - Logo, o numero real 0,2 da base 
decimal, quando convertido para_a base 16, darf ongem a uma 
fraffo de mfimtos algansmos: (0,3 )j 6 . 

Os computadores de grande porte da IBM usam a base 16 
na representa^fo interna dos numeros reais. Portanto, para 
esses computadores o valor (0,2)i 0 nfo terf representa^fo exa- 
ta. Consideremos agora um exemplo na base 2, utilizada na 
linguagem BASIC dos microcomputadores. Seja o numero 



(0,0011) 2 = 0,001 1001 1001 1 

Os parametros a serem considerados sao: B =2, n =4 e a t =0, 
a 2 =0, a 3 =1 e a 4 =1. Aplicados na fdrmula, vem: 

0.2 3 + 0.2 2 + 1 . 2 1 + 1.2° _ 3 1 

s= t = ou s- 

2-1 15 5 

Po rtanto , o mesmo valor (0,2)io 6 responsfvel pela gera^fo de 
(0,601 1) 2 . Assim, quando da conversao do numero (0,2) na 
base decimal para a base 2, o BASIC nfo terf concludes para 
represenrf-lo de maneira exata. Por mais que aumente o nume- 
ro de algansmos sigmficativos, a imprecisfo nfo serf nunca 
eliminada. Por isso, na representa^o desse numero em BASIC 
hi um erro de truncamento inerente a antm^tica usada. Inter- 
namente, pois, o valor 0,2 da base decimal se transformou em 

um valor equivalente, do tipo 0,199999 Mais adiante, serf 

possivel determinar exatamente o valor da expressfo. 

representaqAo interna 

Para exemphficar a representado interna dos numeros reais 
em BASIC, seja ainda o numero 0,2 na base decimal. Vejamos o 
segwnte: na base 2, este valor deverf ser represen tado por 

( 0 , 00TT ) 2 = (0,001 1001 1001 1 ) 2 

Em BASIC, entretanto, os zeros nfo sigmficativos sfo elimi- 
nados. Para que seja feita essa elimina^o, a virgula deverf ser 
deslocada de duas casas para a direita. TamWm se deverf fazer, 
evidentemente, uma cone^o que corresponda a este desloca- 
mento, para que o valor nfo se altere. Assim, 

( 0,001 1 ) 2 - ( 0 , TT 00) 2 . 2 -2 = ( 0, 1 1001 1001 100. .. ) 2 . 2~ 2 

O BASIC, antes de represen tar intemamente o numero real, 
coloca-o na forma: 



0 , Idddddd * 2 



Intemamente, o numero 6 representado em duas partes: a 
mantissa, onde 6 representada a parte fracionfna do numero e 
na qual o algansmo mais sigmficativo 6 sempre igual a 1 (repre- 
sentado normalizada ); e a caracteristica, onde 4 representada 
a parte correspondente ao expoente da base 2. 

Para a mantissa, estfio reservados 3 bytes. Na forma norma- 
lizada , a virgula e o zero que a precede nfo precisam ser repre- 
sentados e podem ser subentendidos. Como o algansmo mais 
sigmficativo da mantissa 6 sempre igual a 1 , inteligentemente 
em BASIC ele tamWm nfo 6 representado, sendo, pois, suben- 
tendido. O seu espa 90 6 ocupado pelo sinal do numero. 

Assim, o numero de bits (algansmos de base 2) reservados 
para a mantissa 6 igual a 24. Quando da realiza^o de opera^o 
antmltica, este algansmo subentendido 6 restaurado. A 
mantissa correspondente a 0,2 na base decimal 6, portanto, 

01001100110011001 1001 100 

O bit zero mais sigmficativo corresponde ao sinal positivo e 
esta ocupando o lugar do algansmo 1 subentendido. 

Para a representado da caracteristica, o BASIC reservou 
apenas um byte. Com um byte pode ser representado um valor 
entre 0 e 255 e este intervalo deverf ser igualmente repartido 
entre os expoentes positivos e negativos. Assim, ao expoente 
efetivo da base 6 sempre somado o valor 128 (128 t a metade 
de 256) e o valor resultante 6 representado, em base 2, na por- 
do reservada a caracteristica. O menor expoente negativo 6, 
dessa forma, igual a —128 que, somado a constante +128, 
resulta na caracteristica zero. O maior expoente positivo 6 
igual a +127, que corresponde i caracteristica 255. 

A caracteristica de 0,2 da base decimal serf, portanto, em 
BASIC: 

0111 1110 



que corresponde ao valor 126, resultado da soma de —2 com 
+128 (na base decimal). Em fund© da representado interna 
do numero real em BASIC, pode-se determinar o valor exato 
com que 0,2 decimal foi armazenado. 

Feitas as operates em base decimal e usando todos os alga- 
nsmos sigmficativos necessfrios, a mantissa representada em 
BASIC corresponderf ao valor 

0,7999999523162841796875 

Considerando-se que o expoente efetivo do numero 6 —2, o 
valor da mantissa ainda deverf ser dividido por 4. Com isso, o 
valor realmente representado em BASIC como 0,2 decimal serf 

0, 199999988079071044921875 

Como os valores 2,0 e 10,0 da expressfo especificada no 
mlcio deste artigo sao representados de maneira exata em 
BASIC, a avaliado da expressSo redundarf no valor — especifi- 
cado na base decimal - igual a: 

0,0000001 1920928955078125 

Ve-se, portanto, que o resultado da expressed nfo cones- 
ponde, de maneira alguma, a um valor igual a zero. De fato, o 
zero decimal nfo se transformou em zero computacional. ■ 

(S', 



Trabalhando na dree de Informdtica desde 1963, Akeo Tana be 4 Enge- 
nheiro Eletrdnico pelo Instituto Tecnoldgico da Aeroniutica (1964) e 
Mestre em CMnciat em Informdtica pela Pontiffcia Universidade Catdli- 
ca do Rio de Janeiro (1970). 
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Aplicapoes em 
Saneamento Basico 



Apresentamos em conjunto duas aplica9oes especificas para a 
area de Saneamento B3sico (Engenharia Hidraulica) que nos 
foram enviadas por engenheiros da SABESP. 
Uma e um pm grama para a calculadora HP-4 1C que executa 
calculus relativos a diques de terra para lagoas estabilizadoras 
de esgotos. A outra aplica^o ja e um programa em BASIC, 
desenvolvido no micro PC-121 1 para o dimensionamento 
de trechos de redes de distribui^o de 3gua. 



Eventualmente, MICRO SISTEMAS abrira suas paginas 
para aplica^es especificas como estas, na forma de 
pequenos blocos de dois ou tres programas ou artigos 
sobre um mesmo tema basico, abrangendo areas distintas 
como Medicina, Direito, Engenharia, Administra^o etc. 
Isto possibilitara a divulgagao de programas e artigos que, 
apesar de suas espedficidades, poderao ser uteis para os 
profissionais destas areas. 



Aplicacao 1 — HP-41C 



Hilton Feh'cio dos Santos 



objetivo deste programa e realizar o cdlculo do volu- 
me dos diques de terra formadores de uma lagoa de 
estabilizafSo de esgotos sanitanos atrav^s de uma cal- 
culadora programavel HP-4 1C, calculando-se tambem a profun- 
didade do corte necessano no fundo da lagoa para gerar o vo- 
lume de terra que sera utilizado para a construfao dos diques. 

Para os leitores n5o familianzados com o objeto do artigo, 
uma lagoa de estabilizapao e um processo largamente utihzado 
para tratamento de esgotos sanitanos urbanos em pequenas co- 
munidades. A luz solar, a fotossintese das algas e os microorga- 
msmos presentes na lagoa encarregam-se de consumir e estabili- 
zar a mat^na organica presente nos esgotos, enquanto o repou- 
so da agua represada promove sua decanta^ao. 0 efeito conju- 
gado 6 o de um h'quido hgeiramente esverdeado (devido as 
algas) mas livre de odores e pnnapalmente de cerca de 90% de 
sua DBO micial. (A DBO — Demanda Bioquimica de Oxigenio 

— e uma medida usada pelos sanitanstas para avahar a politi- 
co das aguas.) 0 h'quido tratado e ent3o descarregado num no 
proximo, sem problemas para a vida aqua'tica. 

VOLUME DOS DIQUES 

Para o calculo do volume dos diques de uma lagoa de estabi- 
UzaCo quadrada ou retangular, usa-se uma tabela de valores 
que 6 funCo da area do espelho d’agua e dos demais parame- 
tros indicados na figura 1 . 

0 programa tambem calcula a escavaCo necessana para ge- 
rar o volume dos diques. Em pnncipio, admite-se que a area a 
ser escavada seja a mesma do fundo da lagoa. Se esta for made- 
quada, sera uma area de empr^stimo em qualquer lugar apro- 
pnado, com as mesmas dimensQes do fundo da lagoa. 

Para a formaCo dos quadros, foram assumidos os segumtes 
valores : 

Para os Quadros 1, 2, 3 e 4 

— Fator de empolamento da terra escavada (Fe) — 1 ,30 

— Fator de compactaCo dos diques (Fc) — 0,80 



— Altura dos diques (H) - 2,30 

— Profundidade (P) — 1 ,80 

— Borda livre (B) - 0,50 

— Largura da cnsta (L) - 2,00 

— Talude extemo (1/He) - 1 :1 ,5 

Para o Quadro 1 

— Forma da lagoa - Quadrada 

— Talude intemo (1/Hi) - 1 :3 

Para o Quadro 2 

— Forma da lagoa - Quadrada 

— Talude intemo (1 /Hi) - 1:2 

Para o Quadro 3 

— Forma da lagoa - Retangular 

— ProporCo dos lados - a’-2b* 

— Talude intemo (1/Hi) - 1 :3 

Para o Quadro 4 

— Forma da lagoa - Retangular 

— ProporCo dos lados - a’-2b' 

— Talude intemo (1 /Hi) — 1 :2 

Os quadros servem como exemplo do processamento do 
programa. Os leitores podem, entretanto, formar outros qua- 
dros, vanando um ou mais dos parametros que indicamos. 

A area do espelho d’agua necessana 6 determinada pelo en- 
genheiro samtansta em fun^o da carga organica do projeto. 
As avalia96es que apresentamos a seguir sSo feitas em fun- 
930 da area do espelho d'agua. 

Volume = Base media x Perimetro (veja figura 1) 

V = Bm . 2 (a + b) 
a = a’ + 2x 

x = Borda livre . (Hi) + L/2 =(B) (Hi) + L/2 

V = Bm . (2a + 2b) = Bm. (2a' + 4x + 2b’ + 4x) 
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V = Bm . (2a’ + 2b’ + 8x) 

V = Bm . (2a’ + 2b’ + 8 (B) (Hi) + L/4) (I) 

De term in an do a’ e b’ em funfSo da area (A) do espelho 
d’agua, teremos: 



(» • ) (b • ) - A 
a' - 2b' 



) (b • ) - A 



fb' - (A/2) 1 /2 ^ 



Substituindo a’ e b’ em V, temos: 

Vr - Bm . &(A/2)' /2 ♦ 2 (A/2) 1/2 ♦ 8(B) (Hi) ♦ L/a] 

Vr * Bm . [§(A/2)' /2 ♦ 8(B) (Hi) ♦ L/4] 

E como temos que: 

(H) (Hi) + L ♦ (H) (He) + L H 

Bm , • H 

2 

Bm = 0 ,5 (H 2 (Hi ♦ He) ♦ 2 LH] 

Para uma lagoa retangular em que a’ = 2b’, teremos: 

(II) Vr - (h 2 (HI ♦ He) ♦ 2 LH] (3 (A/2) 1/2 ♦ 4(B)(HI) ♦ L/S] 

O volume dos diques 6 dado em fun^So de : 

H = altura dos diques 

Hi = afastamento horizontal unitdno do talude mtemo (1 :Hi) 
He= afastamento honzontal unitdno do talude extemo (1 :He) 
L = largura da cnsta do dique 
A = area do espelho d’agua 
B = borda livre 



COMANDO 


VISOR 


XBQ LAG 


HI* 1 : ( )? 2,00 


1 R/S 


HE* 1 : ( >7 1.S0 


R/S 


H. DIQUE? 2,30 


R/S 


L. CRISTA? 2,00 


R/S 


S. LIVRE? 35.000 


10.000 R/S 


BORDA? 0,50 


R/S 


PROF.AGUA? 1,80 


R/S 


. Pe? 1 , 30 




RET=a/QUAD»b 



tecla amarela e b LADO* 100 



DISCRIMINAQAO 



1. Inicio do processamento. 

O quesito no visor indaqa 
se o valor Hi*2,00 m e a- 
ceitavel. Se for pressio- 
ne R/S, caso contrario, o 
novo valor e R/S. 



2. Da mesma forma aceita-se' 
ou rejeita-se HE* 1,50. Es 
te valor corrente e acei- 
tavel 



. Larqura da crista 



. Super ficie livre (m 2 l 



. Borda livre 



. Profundidade d'aqua 



. Fator de empolamento 



8. Fazer opqao de calculo: 

A area superficial de 
10.000 m 2 e de uma lagoa 
retangular ( RET) ou qua- 
drada QUAD). 

Pressione a tecla amarela 
e a ou b conforme o caso. 



9. Volume geometrico dos ta 
ludes 

Volume de corte 
Profundidade do corte no 
fundo da lagoa ou em area 
de igual dimensao. 



10. Repetir os (tens 8 e 9 para 
calculo das demais linhas do 
Quadro n» 1 . 

11. Todos parametros podem ser 
acessados e mod i f i cados I 
ou conf irmados) aleatoria- 
mente, pressionando-se as 
teclas Imodo USER) A a J 
respect ivamente correspon- 
dentes a inicializagao fei 
ta dos itens de 1 a 7. Exem 
plo: 

Se desejar verificar a 2a. 
linha do Quadro n« 4: 



Lado maior do retangulo 
Lado menor do retangulo 
Volume geometrico dos ta 
ludes 

Volume do corte 
Profundidade do Corte 



12. Correspondencia Comandos/ 

Parametros: 

A (Hi) - Afastamento horizontal do talude interno 
B (He) - Afastamento horizontal do talude externo 
C (H ) - Altura do dique 
D (L ) - Largura da crista 
E (A ) - Area da superffcie livre de aqua 
F (B ) - Borda livre 
G (P ) - Profundidade d'agua 



Figura 2 - Instrufdes de uso do programa LA G. 




VO* 4. 195 
VQ/FePc* 4.03) 



P. CORTE* 1.12 
RET* a/QUAD* b 



D 


L. CRISTA? 2,00 


I 


Pc? 0,80 


A 


Hi* 1 i ? 3,00 


R/S 


HE* 1 : ? 1,50 


E 


S. LIVRE? 10. 000 


R/S 


BORDA? 0,50 


J 


RET*a/QUAD*b 


sarela e a 


a- 173 


R/S 


b-87 


R/S 


VR-6.104 


R/S 


VR/PePc*5 . 869 


R/S 


P. CORTE* 0,4 5 
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APLICAgOES EM SANEAMENTO BASICO 



tmmm 
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1 




Area 


LADOS 


DIQUK 


CORTE 


PROP. CORTE 




Area 


LADOS 


DIQUB 


CORTE 


PROP. CORTE 






2 




3 


3 






2 




3 


3 










m 


m 


in 


m 










m 


m 






10.000 


100 


4.195 


4.033 


1.12 




10.000 


141x71 


6.203 


5.965 


0.76 






15.000 


122 


5.097 


4.901 


0.85 




15.000 


173x87 


/. 557 


7.267 


0.59 






20.000 


141 


5.859 


5.633 


0.71 




20.000 


200x100 


8.699 


8.364 


0.50 






25.000 


158 


6.529 


6.278 


0.62 




25.000 


224x112 


9.705 


9.332 


0.43 






30.000 


173 


7.135 


6.861 


0.55 




30.000 


245x122 


10.614 


10.206 


0.39 






35.000 


187 


7.693 


7.397 


0.50 




35.000 


265x132 


11.450 


11.010 


0.36 




Quadro 1 : Lagoa a -6 , 1 /Hi ‘1:3. 






Quadro 3: Lagoa a ‘2b, 1 /Hi ‘1:3. 








Area 


LADOS 


DIQUK 


CORTE 


PROP. CORTE 


1 


Area 


LADOS 


DIQUB 


CORTE 


PROF. CORTE 






- 2 


■1 


- 3 


a J 


m 




- 2 


m 


- 3 


- 3 


m 






10.000 


100 


3.367 


3.238 


0.80 




10.000 


141x71 


5.002 


4.809 


0.56 






15.000 


122 


4.102 


3.944 


0.63 




15.000 


173x87 


6.104 


5.869 


0.45 






20.000 


141 


4.721 


4.540 


0.53 




20.000 


200x100 


7.033 


6.762 


0.38 






25.000 


158 


5.267 


5.064 


0.46 




25.000 


224x112 


7.851 


7.549 


0.33 






30.000 


173 


5.760 


5.539 


0.42 




30.000 


245x122 


8.591 


8.261 


0.30 






35.000 


187 


6.214 


5.975 


0.38 


1 


35.000 


265x132 


9.272 


8.915 


0.28 


■ 


Quadro 2: Lagoa a~b. 1 /Hi ‘1:2. 






Quadro 4: 


Lagoa a ‘2 b, 1/ 


Hi ‘1:2. 






J 



Assim, para uma lagoa quadrada a’ =b\ voltando em (I), 
temos: 

V q “ Bm • .(*•' ♦ 8(B) (HI) ♦ L/k) 

V q ■ Bm . (I»(A) 1/2 ♦ 8(B) (Hi) ♦ L/k) 

Donde : 

(III) v q - [h 2 (HI ♦ H.) ♦ 2 LhJ . [2 (A) ,/2 ♦ 4(B) (HI ) ♦ L/eJ 

Se for extraido da caixa de emprfstimo este volume geom£- 
trico V, o total de terra obtida ocupara um volume final de 
cerca de 30% superior ao calculado, devido ao empolamento, 
ou a perda da compacidade natural do solo, donde teremos: 

V' = v x 1,30 

Por outro lado, o volume V’ serf compactado durante a 
construgUo dos diques, reduzmdo-o para (admitindo-se 20% 
de compactagSo): 

v” = 0 ,8(v x 1,30) 

Desta forma, 0 volume V desejado serf afetado pela combi- 
nagSo dos dots fatores. Se o empolamento for maior que a 
compactagfo, deverf ser extraido da caixa de emprfstimo um 
volume igual a 96% do calculado, se forem usados os valores 
exemplificados: 

v = (0,8) (1 ,30) (k) v 

De modo que : 

( 0 , 8 ) ( 1 , 30 ) (K) = 1 
1 



De uma forma geral, deve-se multiplicar o volume V calcula- 
do pelo inverso do produto dos fatores de empolamento e 
compactagao, tornados em relagffo ao volume unirfrio. 

0 cdlculo da profundidade de esfavagSo no fundo da lagoa 
ou numa area de mesmas dimensOes que possua subsolo favo- 
ravel a construgfo dos diques 6 : 

Volume do corte - Volume calculado 

.. 1 

para os diques x ■ 

(Fe) (Fc) 

A profundidade a escavar serf o volume acima (Vr ou Vq, 
conforme o formato da lagoa) dividido pela irea do fundo. Es- 
ta ultima, expressa em fungSo do espelho d’dgua conhecido, 6: 

p * 

(Fe) (Fc) (Af) 

Af - (a ' • ) (b • ' ) (ver fig. I) 
a"- a' - 2y - a' -2(P) (HI ) 
b"- b' - 2 ( P ) (HI) 

J i foram determinadas as expressOes de a’ e b’ em fung£o 
da area do espelho d’dgua, donde temos: 

A fr “ [2 (A/2) 1/2 -2(P) (HI)] [(A/2) 1/2 -2(P)(Hi]] 

E para a lagoa quadrada : 

A fq ■ (i A /2) -2(F) (Hi]] 2 

Donde: 



(Fe) ( Fc) [2 (A/2) 1/2 -2 (P ) (HI)] . |[a/ 2) ,/2 -2 (P ) (Hi)] 

Vq 

(Fa) (Fc) [(A/2) - 2 ( P ) (H|J| 2 
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Sendo que: 

Vr = volume calculado para o dique da lagoa retangular (II) 

Vq = idem para a lagoa quadrada (III) 

Fe = fator de empolamento maior ou igual a 1 . 

Fc = fator de compactafSo menor ou igual a 1 . 

A = drea do espelho d'agua 
P = profundidade da lamina d’agua 

Hi = afastamento honzontal para a altura unitdria do talude 
intemo 

O PROG RAMA 

0 programa que apresentamos em anexo, denommado LAG, 
foi feito para a HP-4 1C e calcula as seguintes dimensOes: 

Vr = volume geom^trico dos diques de uma lagoa retangular 
Vr/FeFc = volume de corte na area de fundo da lagoa (ou em 
uma area de dimensdes equivalentes) para constru$fo dos di- 
ques de Vr 

pr = profundidade do corte Vr/FeFc 
Vq = volume geom^trico dos diques de uma lagoa quadrada 
Vq/FeFc - volume de corte na area de fundo da lagoa (ou em 
uma drea de dimensOes equivalentes) para construcfo dos di- 
ques de Vq 

pq = profundidade do corte Vq/FeFc 



A con fig ura 930 minima neoessana para usar o programa 
LAG 6 a da HP-4 1C com um modulo de rnemdna, n 3 o sendo 
preciso uma impressora. 

Uma vez executado SIZE Oil, deve-se gravar as instrufdes 
e colocar a msiquma no modo USER. Os comandos A a J e a e 
b s3o usados para introduce) e/ou aceita^o dos dados. 

A avalia^o do corte necessano para formar os taludes 6 fei- 
ta pressupondo-se que o terreno da obra seja piano (corte de 
profundidade unica) e horizontal (taludes intemo e extemo de 
saia constante em todo o perimetro). 

A titulo de exemplo, considere-se a forma^ao do Quadro I 
com os parametros aama indicados nas instru^Oes para o 
usuirio (figura 1 ). 

Deve-se notar que ao atnbuir-se em numeros redondos a 
carga orgamca de DBO 5 20 de 50 gr/hab, cada quilo de DBO 
aplicado equivale a 20 habitantes semdos. Com uma taxa de 
150 kg/DBO por hectare por dia, a cada hectare de superf fcie 
livre das lagoas correspondent 3 mil habitantes, ou seja, as la- 
goas dos Quadros 1 a 4 atendem de 3 a 1 0,5 mil habitantes. 

conclusAo 

Embora dingido para lagoas de estabiliza^o, este programa 
pode tamWm ser utilizado para a avalia^o de volumes de 



01+LBL "LAG" 

02 CF 28 

03 SF 29 
044LBL A 

05 CF 22 

06 FIX 2 

07 "HI=1:< >?" 

08 ARCL 00 

09 PROMPT 

10 FS?C 22 

11 STO 00 
124LBL B 

13 CF 22 

14 FIX 2 

15 "HE=1:< >?" 

16 ARCL 01 

17 PROMPT 

18 FS?C 22 

19 STO 01 
204LBL C 

21 CF 22 

22 FIX 2 

23 "H. DIQUE?" 

24 ARCL 02 

25 PROMPT 

26 FS?C 22 

27 STO 02 
28+LBL d 

29 CF 22 

30 FIX 2 

31 "L. CRISTA?" 

32 ARCL 03 

33 PROMPT 

34 FS?C 22 

35 STO 03 
364LBL E 

37 CF 22 

38 FIX 0 

39 "S. LIVRE?" 

40 ARCL 04 



41 PROMPT 

42 FS?C 22 

43 STO 04 

44 FIX 2 
454LBL F 

46 CF 22 

47 FIX 2 

48 "BORDA?" 

49 ARCL 05 

50 PROMPT 

51 FS?C 22 

52 STO 05 
53*LBL G 

54 CF 22 

55 FIX 2 

56 "PROF. AGUA?" 

57 ARCL 06 

58 PROMPT 

59 FS?C 22 

60 STO 06 
614LBL H 

62 CF 22 

63 FIX 2 

64 "Fe?" 

65 ARCL 07 

66 PROMPT 

67 FS?C 22 

68 STO 07 
69#LBL I 

70 CF 22 

71 FIX 2 

72 "Fc?" 

73 ARCL 08 

74 PROMPT 

75 FS?C 22 

76 STO 08 
774LBL J 

78 " RET=a/QU AD=b " 

79 TONE 9 

80 PROMPT 



uma lagoa 



81+LBL a 
82 2 

83 XEQ 04 

84 * 

85 FIX 0 

86 "a=" 

87 ARCL X 

88 PROMPT 

89 LASTX 

90 "b=" 

91 ARCL X 

92 PROMPT 
93. XEQ 02 

94 XEQ 04 

95 3 

96 * 

97 + 

98 XEQ 01 

99 * 

100 "VR=" 

101 XEQ 00 

102 "VR/FeFc=" 

103 XEQ 05 

104 / 

105 XEQ 00 

106 FIX 2 

107 XEQ 04 

108 STO 09 

109 2 

110 * 

111 XEQ 03 

112 STO 10 

113 - 

114 RCL 09 

115 RCL 10 

116 - 

117 * 

118 / 

119 "P . CORTE= " 



de esgotos 



120 XEQ 00 

121 GTO J 
122+LBL b 

123 FIX 0 

124 RCL 04 

125 SQRT 

126 "LADO=" 

127 ARCL X 

128 PROMPT 

129 XEQ 02 

130 XEQ 04 

131 2 

132 * 

133 + 

134 XEQ 01 

135 * 

136 FIX 0 

137 "VQ=" 

138 XEQ 00 

139 "VQ/FeFc=" 

140 XEQ 05 

141 / 

142 XEQ 00 

143 FIX 2 

144 XEQ 04 

145 XEQ 03 

146 - 

147 X+2 

148 / 

149 "P . CORTE =" 

150 XEQ 00 

151 GTO J 
152+LBL 00 

153 TONE 9 

154 ARCL X 

155 AVIEW 

156 STOP 

157 RTN 
1584LBL 01 



159 


RCL 


02 


160 


X+2 




161 


RCL 


00 


162 


RCL 


01 


163 


+ 




164 


* 




165 


RCL 


03 


166 


RCL 


02 


167 


* 




168 


+ 




169 


RTN 




1704LBL 


02 


171 


RCL 


00 


172 


RCL 


05 


173 


* 




174 


4 




175 


* 




176 


RCL 


03 


177 


8 




178 


/ 




179 


+ 




180 


RTN 




1814LBL 


03 


182 


RCL 


06 


183 


RCL 


00 


184 


* 




185 


2 




186 


* 




187 


RTN 




188 


LBL 


04 


189 


RCL 


04 


190 


2 




191 


/ 




192 


SQRT 


193 


RTN 




1944LBL 


05 


195 


RCL 


07 


196 


RCL 


08 


197 


* 




198 


END 
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APLICAQOES EM SANEAMENTO BASICO 



compensa^o entre corte e aterro na construct) de estradas de 
rodagem. A estrada sena do tipo greide elevado, com as caixas 
de emprtstimo situadas ao longo da plataforma. 

0 solo de implanta^Io sena piano e a plataforma horizon- 
tal, para validade da hipdtese de uma altura de crista (no caso, 
plataforma) constante e considerando-se a mesma se^o mddia 
ao longo do trecho de mteresse. 

Ao comando J (RET= a/QUAD= b), devena ser feita a opfSo 
QUAD (tecla amarela e b), interpretando-se o lado da lagoa de 
forma quadrada, como igual a quarta parte da extensffo do tre- 
cho da rodovia sob anahse. A caixa de emprtstimo tena a al- 



tura indicada pela profundidade de corte (P .CORTE) e o fun- 
do uma £rea igual i calculada pela expresslo: 

Af « [[a/ 21 1/2 - 2 (P) (Hi]] 2 

Onde A, quadrado dos lados (quarta parte do trecho) assu- 
me o papel de uma constante de cdlculo. 



Hilton Fel/do dos Santos 4 Engenheiro Civil formado pela UFMC am 
1964, com diversos cursos de extensSo na Califdrnia e no JapSo, e tra- 
bat ha na SABESP — Companhia de Saneamento Bisico do Estado de 
SSo Paulo, no cargo de Superin tendente. 



Aplicaqao 2 — PC-1211 



Antonio Carlos Franco Zucco/o 



E ste programa foi elaborado para o dimensionamento 
de cada um dos trechos componentes de uma rede de 

distnbuxjao de dgua do tipo ramificada, pelo metodo 

de seccionamento ficticio a partir de uma rede com pressao 
disponivel conhecida. Sua aphca^ao volta-se para projetos de 
implanta 9 §o de redes em loteamentos, conjuntos habitacionais 
ou mesmo em projetos de amplia^ao. 

0 programa foi escrito em linguagem BASIC no Pocket 
Computer Sharp PC-1211 e utihza-se da fbrmula HAZEN- 
WILLIAMS para o calculo da perda de carga e da expressao V 
max 0,6 +1,5D, onde V max e a velocidade maxima (em m/s) 
permitida para o diametro escolhido e Deo diametro mterno 
(em metros) do tubo escolhido. 



0 programa foi feito para operar com vazao de atd 150 1/s, 
permitmdo a utiliza^fo de tubos PVC e F9 F9, de acordo com 
a tabela da figura 1 . 

Como recurso extra, o programa d & uma mensagem onen- 
tando sobre a possibilidade do diametro ser menor que o esco- 
lhido toda vez que a velocidade for infenor a 0,30 m/s. 



Antonio Carlos Franco Zuccolo 4 Engenheiro Civil com cursos de espe- 
cial izacSo em Engenharia Sanitaria e Ambiental. Atualmente, Antonio 
Carlos trabalha na SABESP — Companhia de Saneamento Bisico do Es- 
tado de SSo Paulo e est4 preparando sua dissertaqSo de mestrado em 
Saude Publica, onde inclui a aplica q 8 o de um Sistema de Gerenciamento 
de Bancos de Dados — SGBD como instrumento para administragSo de 
recursos financeiros em obras de saneamento. 



Dimensionamento de trechos de redes de distribuicao deagua 



5: REM * ZUCCOLO 
,CX. POSTAL 17 
11-SP* 

10s "A" SPRINT "A 
GUA" 

20 s INPUT "NT=" ; 
G,"P D M (MCA 
)-";P,"C T M 
-";M,"C T J- 
";J, "EXT(M) * 
" ; L, "VAZAO (L 
/S) =" ;Q 

30 INPUT "CODIG 

0 DO MATERIA 

_ 

L- ; Y 

31s IF Y-00GOSUB 
500 

32 s IF Y=0 1GOSUB 

502 

33 s IF Y-02GOSUB 

504 

34 s IF Y-03GOSUB 

506 

35 s IF Y-04GOSUB 

508 

36 s IF Y-05GOSUB 

510 

37 s IF Y-06GOSUB 

512 

38 s IF Y=07GOSUB 

514 

39 s IF Y=0 8GOSUB 
516 

40 s IF Y-09GOSUB 
518 

41 s IF Y-10GOSUB 
520 



42 s IF Y-11GOSUB 
522 

43 s IF Y=12GOSUB 
524 

44 s IF Y-13GOSUB 
526 

45 :IF Y-14GOSUB 
528 

46 s IF Y=15GOSUB 

530 

47 s IF Y-16GOSUB 

532 

48s IF Y=17GOSUB 
534 

49 s IF Y=18GOSUB 

536 

50 s IF Y=19GOSUB 

538 

60 sLET S=(n*D*2 
)/4 

70 s LET V-Q/(S*1 
000 ) 

80 s LET X-.6+1.5 
*D 

90s IF V>XTHEN 1 
00 

91 s IF V< . 3THEN 
102 

92 s IF V<XTHEN 1 

10 

100 SPRINT "ADOTA 
R D>QUE " ; Y 
101 s GOTO 30 
102 SPRINT "D POD 
E SER< " ; Y 



10 3 s INPUT "COD S 
EQ=";Z 

104 s IF Z=0THEN 1 
10 

105 sIF Z-1GOTO 3 
0 

110 sH= (L/100) *.0 
03* (Q/C) * 1.8 
52*D*-4 . 8655 

115 SPRINT "N.TRE 
CHO=" .USING 
"###. " ; g 



120 sPRINT 


"COD M 


ATE RIAL" , 


USING 


"###"; 


Y 




125 sPRINT 


"VELOC 


(M/S) = 


■ , 


USING 


" 00 . 0 * 


" ; V 




130 sPRINT 


"P CAR 


GA(MCA) 


USING 


" 0000 . 


##";H 




140 s LET N= 


P+M 


145 sPRINT 


"C P M 



ON=", USING " 

#####. ##“;N 

150 s LET B=N-H 
155 SPRINT "C P J 
UZ=", USING " 

#####. ##";B 

160 sLET E=B- J 
165 SPRINT "PRE.J 
UZ=", USING " 

####.##" ;E 



170 s GOTO 20 
500sD=.0278,C=12 
0 

501s RETURN 
502 sD= . 0 352 ,C=12 
0 

50 3s RETURN 
504sD=«.044,C=120 

505 s RETURN 

506 s LET D= .0534 , 

C-130 

507 sRETURN 

508 sD=. 0756, C=13 
0 

509 sRETURN 
510s D=. 0977 ,C*13 
0 

511 sRETURN 
512sD=.1412,C=13 
0 

513 s RETURN 
514sD-.1084.C-13 
0 

515 sRETURN 
516sD-.1564.C-13 
0 

517 s RETURN 
518sD-.2042.C-13 
0 

519 sRETURN 
520 : D- . 252 .C-130 
521 sRETURN 
522 s D- . 05 .C-100 
523 sRETURN 
524sD=. 075, C-100 
525 s RETURN 



526 sD=.l,C-110 
527 sRETURN 
528sD-15 .C-110 
529 sRETURN 
530 sD=.2,C*110 
531 sRETURN 
532sD=. 25, C-110 
533 sRETURN 
534 s D= . 3 , C=110 
535 sRETURN 
536sD-. 35, C-110 

537 s RETURN 

538 sD= . 4 , C-110 
539 sRETURN 

540 s REM *CODIGOS 
* 

541 s REM *PVC-JS; 
EB-892 (00,32 
; 01 , 40 ; 02 , 50 
) *PVC-JE;EB- 
183(03, 50;04 
, 75 ; 05 , 100 ; 0 
6,150) 

542 s REM *PVC-DFF 

(07 , 100 ; 08 , 1 
50 ; 09 , 200 ; 10 
,250) 

543 s REM FF-DUCTI 

L( 11 , 50 ; 12 , 7 
5; 13,100; 14, 
150 ; 15 , 200; 1 
6 , 250 ; 17 , 300 
; 18 , 350 ; 19 , 4 
00) 

544 s REM MICRO-SI 

STEMAS/83 
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Curso de Microcomputador 
Gratis do CP-200, CP- 300 e 
CP-500 



FAQA JA SUA INSCRIQAO - VAGAS LIMITADAS 






Informagdes e Inscrigoes pelos telefones: 
222-3458, 220-5794, 220-91 13 e 223-7388 

• Nopoes da linguagem BASIC 

• Material dideitico GRATUITO 

• Aulas pr£ticas e teoricas 

• Dicas sobre programacao e operacao 



■ "Wfci ' 



41 



NOVIDADES 



CP-300/CP-500 
JOG OS 

BATALHA A£- 

REA (F) 4.000 

FORCA (F) 4.500* 

TIRO AO ALVO 

(F) 4.000 : 

TABUADA (F) . . 4.000* 
COMANDO . UFO 

(F) 5.000* 

PATRULHA (F) . . 5.000* 
INVASORES (F) . 5.500* 
PADDLE PINBALL 

(F) 9.600* 

DISCOS VOADO- 

RES(F) 8.000* 

DANCING DE- 
MON (F) 8.000* 

XADREZ (F) 10.000* 

CUBO (F) 6.400* 

JORNADA NAS 
ESTRELAS (F) .. 9.500* 

ELIZA (F) : 7.000* 

COSMIC (F) 9.600* 

SCARFMAN (F) . 9.600* 

LUNAR (F) 9.600* 

BARRICADA (F) . 9.600* 

GALAXI (F) 9.600* 

METEOR (F) 9.600* 

PENETREITOR(F) 9.600* 
10 JOGOS EM BA- 
SIC (em disco, boa, 
sky, pouso lunar, 
jornada, teaser, cu- 
pim, hopper, cram, 
fireman, space fire. 24.000 
COMPLETA LINHA DE 
PROGRAMAS PARA 
ENGENHARIA. 



SOFTWARE 



■ 



• NOVIDADES, 



APLICATIVO 

- CADASTRO DE 
CLIENTES (D) 15 0RTN 
(F) 20ORTN 

• MALA DIRETA 

(D) 30.000 

FINANQAS (D) . 30.000 
PROCALC (D) . . 40.000 

VIDEO (F) 10.000* 

BANNER (F) . . . 6.400* 

SCRIP (D) *. 40.000 

(F) 32.000 

CONTROLE DE 

AgOES (F) 6.400* 

DIRETORIO(D) 16.000 
BANCO DE DA- 
DOS (D) 40.000 

CARTA ASTRAL 

(F) 15.000 

ODONTO(F) . 30 ORTN 

(D) 50 ORTN 

CONVERT (F) . . 6.400 

LISTA(D) 16.000 

SUPE RTECLA 

(F) 8.000 

EDITOR (D) . . . 32.000 
SOUND (F) 6.400* 



CP-200 

JOGOS 

- BATALHA A£- 

REA 

- BATALHA NA- 
VAL 

- FORCA 

- TIRO AO ALVO 

- BIORRITMO I . . 

- LOTO 

- TABUADA 

- SIMULADOR DE 

• VOO 

- COMANDO UFO 

- OESTE SELVA- 

GEM 

- SENHA 

- BATALHA C0S- 

MICA 

- METEOR 

- INVASION FOR- 
CE 

- 3D DEFENDER . 

- KRAZY KONG . 

- RED ALERT . . . 

- PUC MAN 

- INTELECTO . . . 



4.000 

5.500 
4.000 
4.000 
4.000 
4.000 
4.000 

6.500 
4.000 

4.500 

4.500 

5.500 

5.200 

9.600 

7.200 
9.600 
7.200 
9.600 
7.200 



APLICATIVOS 
CONTAS A PA 

GAR 13.000 

AGENDA - 9.500 

CADASTRO DE 

CLIENTE 13.500 

VIDEO TlTULO . 15.000 
VU-CALC . 10.000 

• 

PROMOQdES: 

CP-200 

- PACOTE ECO- 



N0MICO (F) . 
CP-300/CP-500 
- 10 JOGOS EM 
FITA(F) 



4.000 



24.000 



LEGENDA 

F - Para programa em fita ^ 
D Para programa em disco 
* Acrescentar CrS 6.000,00 
p/versao em disco 



Jr. 



PREQO ESPECIAL 
POR ATACADO 



li 



PARA MAIORES INFORMAgOES SOBRE: n CURS0S * 

>: Tel.: □ SOFTWARE 5 

CEP: □ EQUIPAMENTOS 

Est. : Equip.: 



filcres 



y 

Filcres Importapao e Representapdes Ltda. 

Rua Aurora, 165 — CEP 01209 — S5o Paulo — SP 
Telex 1131298 FI LG BR - PBX 223-7388 - Ramais 2, 4, 

12, 18, 19 - Diretos: 223-1446, 222-3458, 220-5794 e 
220-9113- Reembolso — Ramal 17 Direto: 222-0016 - 220-7718 
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Veja como funciona a logica de programa^ao, aprenda a construir um a/goritmo 
e comece a desenvolver seus prdprios programas. 



Uma questao de logica 

Mauricio Costa Reis 



P ronto, comprei um micro! E agora, o que fa 90 com 
ele?” Esta e uma velha questao, que envolve duas al- 

temativas: ou compramos programas ja prontos ou 

entao os desenvolvemos por conta propna. 

No pnmejro caso a tarefa e relativamente simples, ou seja, 
6 so escolher entre os programas (ou jogos!) existentes no mer- 
cado aquele que melhor se adapta aos nossos objetivos. Por 
exemplo, se a mten^To e controlar a despensa de sua casa, bas- 
ta voce procurar um progrania de controle de estoque. 

E se optamos pela segunda altemativa? Bom, ai a realidade 
ja e outra, um pouco mais complicada. 

Sem duvida, os micros s3o faceis de serem utibzados, pnnci- 
palmente porque a maiona deles trabalha com a linguagem BA- 
SIC. No entanto, 6 justamente esta simplicidade que vem con- 
fundindo muita gente. Se queremos programar precisamos, an- 
tes, aprender o BASIC! 

Escrever um programa n§o e a mesma coisa que escrever, 
digamos, uma carta. Ele deve ser exato e obedecer a uma se- 
quence coerente de comandos - e n6s temos que ser sensiveis 
a isto. Para falar bem em ingles e necessano tambem pensar em 
mgles. 0 mesmo ocorre com o micro: para programa-lo deve- 
mos raciocinar de acordo com a sua logica, a logica de progra- 
maqao. 

DESENVOLVENDO UMA IDElA 

Nossa mten^o 6 escrever um programa, correto? Que tal 
preparar antes todos os passos a serem seguidos? Vooe vera que 
isto sempre ira auxilia-lo muito quando for desenvolver um 
novo programa. 

Utilizaremos primeiro um exemplo pratico do nosso coti- 
diano e depois entSo um exemplo de programa. Vamos nos 
imaginar como sendo um micro (vamos, pelo menos, tentar). 



Isto significa que s6 podemos obedecer ordens exatas e bem 
defimdas agora. 

Pois bem, estamos dmgindo calmamente quando, de re- 
pente... estoura um pneu. 0 que devemos fazer? 

- TROCAR O PNEU 

Parece 6bvio, mas faltam alguns detalhes. Podemos tentar: 

1 . FREIAR O CARRO COM 0 FREIO DE MAO 

2. LEVANTARO CARRO COMO MACACO 

3. TIRAR 0 PNEU FURADO 

4. COLOCAR O ESTEPE (PNEU RESERVA) 

Mas como levantar o carro se amda nSo peguei o macaco 
na mala do carro? Entfo, temos que: 

2.1 - ABRIR A MALA DO CARRO 

2.2 PEGARO MACACO 

2.3 - INSTALAR O MACACO 

2.4 ACIONARO MACACO 

Como o carro 6 novo e voc€ n§o sabe onde colocar o ma- 
caco, voce deve: 

2.3.1 - ABRIR 0 PORTA-LUVAS 

2.3.2 PEGAR 0 MANUAL DO CARRO 

2.3.3 - VERIFICAR A POSI^AO DE INSTALAQAO DO 

MACACO 

2.3.4 - COLOCAR O MACACO 

Mas n3o 6 tJo simples assim tirar um pneu. Voce precisa: 

3.1 - TIRAR UMAPORCA 

3.2 - TIRAR UMA PORCA 

3.3 - TIRAR UMA PORCA 
3.4 -TIRAR UMAPORCA 
3.5 - TIRAR O PNEU 

£pa, quanta repeti^o! Vamos tentar simplificar: 

3.1 - TIRAR UMAPORCA 

3.2 - SE JA TIROU 4 PORCAS SIGA SENAO VOLTE 

PARA 3.1 
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3.3 - TIRAR 0 PNEU 

Ficou melhor assim, pois a ordem para tirar a porca s6 apa- 
rece uma vez e esta controlada por uma condiffo. Esta ordem 
tambem podena ser escrita de outra maneira: 

3.1 - FAC A 4 VEZES: TIRAR UMA PORCA 

3.2- TIRAR 0 PNEU 

Da mesma forma podemos desenvolver o item 4: 

4.1 - ABRIR A MALA DO CARRO 

4.2 - PEGAR 0 ESTEPE 

4.3 - COLOCARO ESTEPE NO LUGAR DO PNEU FURADO 

4.4 - FAQA 4 VEZES: COLOCAR UMA PORCA 

Um pequeno detalhe: voce observou que a mala do carro ji 
estava aberta? Isto significa dizer que o item 4.1 n5o 6 neces- 
sdno e que podemos omiti-lo. 

Agora falta guardar os objetos utilizados; e ent3o acrescen- 
tamos: 

5. GUARDAR OS OBJETOS 

5.1 - GUARDAR O MACACO 

5.2 - GUARDAR 0 PNEU FURADO 

mas o macaco ainda est<i mantendo o carro no ar. Precisamos: 

5.1.1 - ABAIXARO CARRO 

5.1.2- TIRAR O MACACO 

5.1 .3 - GUARDAR 0 MACACO NA MALA 
Vamos ver como ficou a nossa troca de pneu: 

- TROCAR 0 PNEU 

1 . FREIAR 0 CARRO COM 0 FREIO DE MAO 

2. LEVANTAR O CARRO COM O MACACO 

2.1 - ABRIR A MALA DO CARRO 

2.2 - PEGAR 0 MACACO 

2.3 - INSTALARO MACACO 

2.3.1 - ABRIR 0 PORTA-LUVAS 

2.3.2 - PEGAR 0 MANUAL DO CARRO 

2.3.3 - VE RIF ICAR A POSIQAO DE INSTALAQAO DO 

MACACO 

2.3.4 - COLOCAR 0 MACACO 

2.4 - ACIONAR 0 MACACO 

3. TIRAR 0 PNEU FURADO 

3.1 - FAQ A 4 VEZES: TIRAR UMA PORCA 

3.2 - TIRAR 0 PNEU 

4. TIRAR 0 ESTEPE 

4.1 PEGAR O ESTEPE 

4.2 - COLOCAR 0 ESTEPE NO LUCAR DO PNEU 

FURADO 

4.3 - FAQ A 4 VEZES: COLOCAR UMA PORCA 

5. GUARDAR OS OBJETOS 

5.1 - GUARDAR 0 MACACO 

5.1.1 - ABAIXARO CARRO 

5.1 .2 - TIRAR O MACACO 

5.1 .3 - GUARDAR 0 MACACO NA MALA 

5.2 - GUARDAR 0 PNEU EURAIX) 

Pronto, o pneu esta trocado. Repare que, efetivamente. 
s6 devemos executor os itens destacados. 

Agora vamos tentar resolver um problema de programaf^o. 
Como exemplo, podemos usar o calculo do MDC (Maximo 
Divisor Comum) entre dois numeros. Para tal, aplicaremos o 





I 1 
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42 I 


I 27 I 
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Observe que: 





quociente 




dividendo 


divisor 




resto 







“M^todo de Euclides” (figura 1). Vejamos entffo como calcu- 
lar o MDC entre 42 e 27, que pode ser representado por 
(42,27): 

1 . Dividendo 42 

2. Divisor •*- 27 

3. Calcular o quociente 

4. Calcular o resto 

5. Se o quociente ja i o MDC 
entao (6.) Terminar 

senSo (7.) Atualizar a tabela 

Para calcular o quociente e o resto: 

3.1 — Quociente «- parte inteira do resultado da divisiSo do 
dividendo pelo divisor 

4.1 - Resto dividendo - (quociente x divisor) 

O quociente s6 serd o MDC casoo resto seja igual a O(zero), 
e entSo podemos substituir no algontmo: 

5. Se o resto igual a 0 
E para terminar: 

6.1 - MDC ■*- quociente 

6.2 - Impnmir o valor do MDC 

6.3 - Fim do m^todo 

S6 falta detalhar a parte mais importante, pois, apos atuali- 
zar a tabela, devemos voltar ao processo: 

7.1 - Dividendo + divisor 

7.2 - Divisor •«- resto 

7.3 - Voltar para 3 

Simplesmente, o que fizemos foi escrever como agir para 
calcular o MDC entre dois numeros utihzando as barras. Se 
quisermos tomar o mctodo mais geral, basta substituir os dois 
pnmeiros passos por: 

1 . Ler um valor para o dividendo 

2. Ler um valor para o divisor 

ALGORITMOS E TOP-DOWN 

Chamamos de procedimento qualquer sequencia de a^es 
que vise atmgir determinado objetivo. Quando estas a9<5es 
apresentam um fim, ou seja, representam a<;des finitas , damos 
a este procedimento o nome particular de algontmo. 

Na verdade, um programa i uma sequencia de comandos 
(a 90 es) e, por isso, uma representado de um algontmo. Da 
mesma forma, o que fizemos para descrever a troca de um 
pneu tambem 6 um algontmo. Portanto, ao escrever um pro- 
grama, 6 importante que o seu algontmo esteja correto. Em 
outras palavras, um programa s6 estara correto se o seu algo- 
ntmo estiver correto. 

Na descndo da troca do pneu utilizamos a tecnica conhe- 
cida pelo nome de Top-Down (de cima para baixo), que sig- 
nifica desenvolver uma ideia partmdo de seu conceito mais am- 
plo ("alto”) at 6 conceitos mais especi'ficos ("baixo”). 

Repare como procedemos para fazer a troca do pneu. Des- 
crevemos alguns passos basicos, e os que nSo estavam bem de- 
senvolvidos foram sendo desmembrados at£ chegarmos ao al- 
gontmo final. Ja no calculo do MDC foi mais simples e, na 
verdade, usamos o mdtodo conhecido pelo nome de "Algont- 
mo de Euclides”. 

Com tudo isso podemos concluir: o sucesso ou nao de um 
programa \t& depender do algoritmo que ira representar: se o 
algontmo estiver correto, entJo o programa estara correto. 
Outro ponto importante 6 que os algontmos gerados por esta 
tecnica s3o estruturados, ongmando programas tambdm estru- 
turados. Portanto, a tecnica de Top-Down 6 uma boa ferra- 
menta para a aplica^o da Programa^So Estruturada (veja 
MICRO SISTEMAS n9 20, pag. 10). ■ 



Mauricio Costa fie is 4 formado em Informatica pela UFRJ. Atuaimente 
trabalha como Analista de Sistemas na Portobris e 4 Consultor T4cnico 
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Figura 1 - MDC (42 .27) = 3 
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Estratdgia: a palavra-chave para aprisionar as pegas inimigas 
e veneer o jogo no seu micro da linha Sinclair. 



Flip: capture o adversario 

Hondrio Lisboa Neto 



lip (palavra inglesa que signifi- 
ca algo como virar ao reverso ), 
tambem conhecido como 
Othello ou Einstein — nomes urn tanto 
sisudos para ele — , 6 urn jogo para ser 
disputado por duas pessoas. Foi desen- 
volvido em um TK-85 com 16 Kb de 
membna. 

Flip 6 , basicamente, um jogo de es- 
tratdgia, onde a sorte nao 6 o prepon- 
derante. Os jogadores tern como obje- 
tivo chegar ao fmal da partida com um 
mimero de pe$as superior ao de seu 
adversdrio, e isso 6 conseguido atravds 
de posicionamentos adequados que 
cnam armadilhas e defesas. As regras 
bdsicas sdo simples, mas permitem si- 
tua^des mteressantissimas, onde um 
raciocfmo bem elaborado serd fator de 
supremaaa no desenvolver da partida. 

AS REGRAS DO JOGO 

0 jogo tern micio com a tela apre- 
sentada na figura 1 . Entao, o jogador 
que come 9 a o jogo deverd colocar uma 
pe£a sua de forma a aprisionar uma ou 
mais pe^as adversanas, as quais passa- 
rao a ser suas. 

Esta captura de pe 9 as e feita colo- 
cando-se uma pe^a de tal forma que as 
pe 9 as adversanas fiquem limitadas por 
duas pe^as suas. A captura pode ser 
feita em qualquer dire^o — horizon- 
tal, vertical e, inclusive, nas diagonals. 
£ possivel com uma pe 9 a apenas, fazer 



ABCDEFGH 




ABCDEFGH 



Figura J 

captures em mais de uma direfSb. N£o 
podem existir espa^os vazios ou pe 9 as 
suas entre as pe 9 as a serem capturadas. 

Toda jogada deverd capturar pelo 
menos uma pe 9 a mimiga. Uma pe^a 
colocada numa posi 9 do que ndo apri- 
sione peya adversaria sera considerada 
uma jogada mvdlida. Quando isso 
ocorre, o jogador nao perde a vez; ele 
terd o direito de jogar novamente, des- 
ta vez numa posi 9 ao vdlida. 

Vejamos, entao, alguns exemplos de 
jogadas validas e invdiidas. Considere o 
tabuleiro mostrado a seguir como um 
determinado momento de uma partida. 
(Veja figura 2). 

Supondo que seja a vez da pe 9 ag 
jogar, senam: ™ 





ABCDEFGH 




ABCDEFGH 



Figura 2 

— jogadas vdlidas: 

• D1 — captura a pe?a em D2 

• G2 - captura as pe 9 as em D5, E4, 
F3 e G3 

• H3 — captura as pe 9 as em F3 e G3 

• E7 - captura as pe 9 asem E4,E5 e 
E6 

— jogadas invdiidas: 

• E8 — existe uma casa vazia em E7 

• F7 - nao existe uma pe 9 a sua em 
C4 pare fechar a diagonal 

• B5 — existe uma casa vazia em F5 
Ap6s RUN e NEW LINE, aparecerd 

na tela o tabuleiro vazio e a pergunta 
NOME DOS JOGADORES?. A ordem 
de entrada dos nomes decidird quern 
come 9 a o jogo. Mas o come 90 nao 6 
decisivo; ambos tern iguais chances de 
ganhar. 
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Em seguida, o programa coloca as 
pe$as na POS 19 S 0 uncial (conforme foi 
visto na figura 1 ) e indica de quem 6 a 
vez. 

As jogadas deverao ser dadas mdi- 
cando-se a posi^o que a pe?a lrd ocu- 
par no tabuleiro. Esta posisdo 6 dada 
pelas letras e numeros que estdo em 
volta do tabuleiro, formando as coor- 
denadas da casa a ser ocupada (do mes- 
mo modo como 6 indicado na Batalha 
Naval)- Voce deve digitar pnmeiro a 
letra, depois o numero e em seguida 
NEW LINE. Por exemplo: C 4 NEW 
LINE. Feita a jogada, o computador se 
encarrega de fazer as capturas. Termi- 
nada uma jogada, o numero de pe^as 
de cada jogador 6 atualizado e aparece 
o nome do prbximo a jogar. 

Caso um jogador esteja lmpossibili- 
tado de jogar (ou seja, quando ndo 
existe lugar onde ele possa capturar pe- 
lo menos uma pe<?a adversdna), ele de* 
verd digitar 0 e NEW LINE, passando a 
vez para o outro jogador. 

No final da partida aparecerd o no- 
me do vencedor e os totals de pe 9 as de 
cada um. 

A linha de programa 510, que con- 
tem a instru$ao SLOW, permite a vi- 



sualiza^ao das capturas d medida em 
que sdo feitas. Se depois de algumas 
partidas voce jd tiver assimilado 0 me* 
camsmo das capturas e achar que o 
computador estd muito lento, esta li- 
nha pode ser suprimida; o computador 
passard entao a operar em FAST (linha 
6 ). 

Para fmalizar, algumas dicas para se 
obter melhor posicionamento durante 
as partidas: 

— evite colocar pe$as nas linhas 2 e 7, 
e nas colunas B e G; 

— procure colocar suas pesas nas mar- 
gens e prmcipalmente nos cantos do 
tabuleiro, pois um canto nunca terd 
sua pe 9 a capturada. 

DIGITACAO DO PROGRAMA 

Antes de digitar o programa Flip, 
observe que na linha : 

10 — os simbolos utilizados sdo 
dois GRAPHICS SHIFT H se- 
guidos; 

80 — os simbolos sdo GRAPHICS 
SHIFT SPACE; 

110— os simbolos sao GRAPHICS 
SHIFT SPACE; 

260 — existe um e spa 90 em branco 
dentro das aspas; 



280 — os simbolos usados sdo GRA- 
PHICS SHIFT 3 e GRAPHICS 
SHIFT 4 seguidos; 

290 — os simbolos usados sdo GRA- 
PHICS SHIFT 2 e GRAPHICS 
SHIFT 1 seguidos; 

300 — os simbolos usados sdo GRA- 
PHICS SHIFT E e GRAPHICS 
SHIFT R seguidos, 

310 — os simbolos usados sdo GRA- 
PHICS SHIFT W e GRAPHICS 
SHIFT Q seguidos; 

490 - existe um espa 90 em branco 
dentro das aspas que apare- 
cem quatro vezes nesta linha; 

840 - existem dois espasos em bran- 
co dentro das aspas; 

850 - os simbolos usados sdo dois 
GRAPHICS SHIFT H segui- 
dos; 

990 - existem 28 espa 90 s em bran- 
co dentro das aspas dessa linha. 



Hondrio Lisboa Neto. Engenheiro Civil, for- 
mado pel a USP em 1977, atualmente cursa 
mast rad o na mesma universidade. Trabalha 
hi cinco anos na drea de obras hidriulica em 
empress de consultoria e projetos, onde de- 
senvolve estudos de engenharia e programas 
oara microcomputadores. 



2 REM ** FLIP ** 

4 REM ** HONORIO LISBOA NETO- 
J UN/83 ** 

6 FAST 

10 LET C|=TI]" 

20 FOR N=2 TO 14 STEP 4 
30 FOR M=2 TO 14 STEP 4 
40 PRINT AT N,M;C$;AT N+1,M;C$ 
; AT N+2 ,M+2 ,C$ ; AT N+3,M+2;C 
$ 

50 NEXT M 

60 NEXT N 

70 FOR N=1 TO 18 

80 PRINT AT 1 , N ; ; AT 18,N;"B 

90 NEXT N 
100 FOR M=2 TO 18 
110 PRINT AT M, 1; m W I AT M,18;”« 

120 NEXT M 

130 FOR M=2 TO 16 STEP 2 
140 PRINT AT 0 ,M; CHR$ (38+(M-2) 
/2) ; AT 19 ,M;CHR$ (38+(M-2)/ 
2 ) 

150 PRINT AT M, 0 ; CHR$ (29+(M-2) 
/2);AT M,19;CHR$ (29+(M-2)/ 
2) 

160 NEXT M 
180 DIM V(2) 

190 DIM T (2) 

200 DIM S$ ( 4 , 2) 

210 DIM J$ ( 2 , 10) 

220 DIM M(8,8) 

230 PRINT AT 21,0; "NOME DOS JOG 
ADORES?" 

240 FOR 1=1 TO 2 
250 INPUT J$(I) 

260 IF JS(I,10)<>" " THEN GOTO 
970 

270 NEXT I 

280 LET S$(1)="H" 

290 LET S$(2)-"H" 

300 LET S$(3)-"W’ 

310 LET S$(4)="M" 

320 LET P=0 
330 LET V(l)=l 
340 LET V(2) *2 



Flip 

350 LET 1=2 
360 LET X=4 
370 LET Y=4 
380 GOSUB 1020 
390 LET X-5 
400 LET Y-5 
410 GOSUB 1020 
420 LET 1=1 
430 LET Y=4 
440 GOSUB 1020 
450 LET X=4 
460 LET Y=5 
470 GOSUB 1020 

480 PRINT AT 9 , 22 ; J$ ( 1) ; AT 10,2 
2 ; S$ ( 1) ; AT 13, 22; J$ (2) ;AT 1 
4 , 22 ;S$ ( 3) 

490 PRINT AT 15 , 22 ; S$ ( 4 ) ; " ";T( 
2) ;" " ; AT 11 , 22 ; S$ ( 2) ;" ";T 
( 1 );" " 

500 IF T ( 1) +T (2) =64 OR NOT T(l) 
OR NOT T (2) THEN GOTO 940 
510 SLOW 

520 PRINT AT 21,0; "AGORA E VOCE 
" ; J$ (I) 

530 INPUT L$ 

540 IF L$="0" THEN GOTO 910 
550 IF LEN L$<>2 THEN GOTO 530 
560 LET C=CODE L$(l)-37 
570 LET L=CODE L$(2)-28 
580 IF L>8 OR L<1 OR C>8 OR C<1 
THEN GOTO 870 

590 IF M(L,C) >0 THEN GOTO 870 
600 LET X=L 
610 LET Y=C 
620 GOSUB 1020 
630 FOR D-l TO 8 
640 LET DX= (D=4) + (D=6) + ( D=5) - (D 
=8)-(D«l)-(D-2) 

650 LET DY= (D=2) + (D=3) + (D=4 ) - (D 
=6) - (D=7) - (D=8) 

660 LET X=L 
670 LET Y=C 
680 LET X=X+DX 
690 LET Y=Y+DY 

700 IF X=0 OR X=9 OR Y=0 OR Y=9 
THEN GOTO 790 




710 IF M(X,Y) =0 THEN GOTO 790 
720 IF M(X,Y) <>V(I) THEN GOTO 6 
80 

730 LET X=X-DX 
740 LET Y-Y-DY 

750 IF X=L AND Y*=C THEN GOTO 79 
0 

760 LET P=1 
770 GOSUB 1020 
780 GOTO 730 
790 NEXT D 

800 IF P THEN GOTO 910 

810 LET M(L,C)=0 

820 LET T(I)=T(I)-1 

830 LET R=C+L-INT ((C+L)/2)*2 

840 LET C$“" " 

850 IF NOT R THEN LET C$=’0" 

860 PRINT AT 2*L,2*C;C$;AT 2*L+ 

1 , 2*C; C$ 

870 PRINT AT 21,0; "JOGADA INVAL 
IDA "; J$(I) 

880 PAUSE 180 
900 GOTO 520 
910 LET P=0 

920 LET I* (1*2) +2* (1*1) 

930 GOTO 490 

940 LET I-(T(1) >T(2) )+2*(T(l) <T 
( 2 )) 

950 PRINT AT 21 , 0 ; "PARABENS ;J 
$(I) ; " , VOCE GANHOU" 

960 STOP 

970 PRINT AT 21,0; "NOME COM 9 L 
ETRAS NO MAXIMO." 

980 PAUSE 300 

990 PRINT AT 21,0;" 

N 

1010 GOTO 250 
1020 LET M(X;Y)*V(I) 

1030 LET T (I) “T ( I) +1 
1040 LET IN= (1=2) +2* (1=1) 

1050 LET T (IN) =T (IN) -P 
1060 IF 1=2 THEN LET 1=3 
1070 PRINT AT 2*X,2*Y ;S$ (I) ;AT 2 
*X+1,2*Y;S$(I+1) 

1080 IF 1=3 THEN LET 1=2 

1090 RETURN B 

m 
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JR Sysdata 




0 1 JR, micro fabncado pela Sys- 
data Eletronica Ltda., de S£o 

Paulo, i urn computador bem 

mais potente e versdtil do que seu mo- 
desto design possa sugerir a um obser- 
vador menos atento. 

Tendo seu software baseado no TRS- 
80 Model III, o JR vem com uma s^ne de 
incrementos onginais em termos de mer- 
cado nacional, entre os quais destaca-se 
o uso de cartuchos de programas que 
podem substituir a ROM do sistema por 
outros compiladores/interpretadores, 
sem a necessidade de se ter uma unida- 
de de disquete. 

Extemamente, seu aspecto 6 de um 
micro pessoal de porte discreto, com te- 
clas pequenas e achatadas e com um pre- 
90 intermediano no disputado merca- 
do dos pessoais. 

HARDWARE 



0 JR tern como UCP o Z80 traba- 
lhando com um clock de 1,78 MHz, 
que pode ser elevado para 3,56 MHz 
atrav^s de acessdrio adquindo opcio- 
nalmente. 

Sua memdria compreende 14 Kb de 
ROM e 16 Kb de RAM, esta expansivel 
at£ 48 Kb na versao bdsica e 62 Kb na 
versflo disco. Esta expansao nSo exige 
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o uso de placas ex tern as ou in tern as, 
sendo feita atravtfs da simples substitui- 
9fio do chip de 16 Kb RAM por outro. 

Como novidade, o JR tern na sua 
UCP um soquete para 2 Kb de memdna 
ROM ou EPROM. Nele podem ser uti- 
lizados um chip JR Extended BASIC 
ou um chip para autostart de programas 
aplicativos em cartuchos, ambos comer- 
cializados pela Sysdata, bem como uma 
memdria EPROM gravada pelo usuano. 

Seu teclado tem feedback tactile com 
contatos de prata/iridio e teclas sirrula- 
res as de uma calculadora, por6m maio- 
res e com um posicionamento comum 
aos demais micros. 

0 JR tem duas saidas para video: 
uma RF para ser usada com TVs comer- 
ciais, e outra composta, que tanto pode 
ser ligada a uma TV comum quanto a 
um monitor de video profissional. Seu 
display 6 de 16 linhas por 64 colunas, 
ou 16x32 com caracteres expandidos, 
compreendendo uma resolu^o grafica 
de 128x48 pontos. 0 video pode ser 
usado ainda em modo reverso (letras 
pretas em fun do branco) com comando 
em software. 

0 Gerador de caracteres do JR 6 to- 
do baseado numa EPROM de 4 Kb e 
tem 96 caracteres disponiveis, ainda 
nlo implementados, que podem permi- 
tir, por exemplo, a mser^o de todos os 
caracteres APL ou outros caracteres a 
escolha do usudno. 

Em sua configura^do bdsica, o JR 
vem com uma interface para gravador 
cassete, podendo o usuano utilizar mais 
uma interface (esta optional) junto com 
a pnmeira. 0 circuito de leitura de fitas 
em cassete do JR 6 de alta confiabili- 
dade, gravando em veloadade de 500 
BPS e ele vem com um comutador ma- 
nual para controle remoto do gravador. 

0 micro traz uma particulandade 
muito interessante, que sSo os cartudios 
de programas. Em sua configura^o ba- 
sica, o JR tem uma saida para o uso de 
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cartuchos de programas, acoplada a um 
mecamsmo que possibilita o desligamen- 
to da memona ROM do JR quando este 
estiver com um cartucho. Desta forma o 
micro fica controlado pelo conteudo do 
cartucho, que pode conter um compila- 
dor de outra linguagem, que normal - 
mente tena que ser carregado a partir 
de um disquete, com um custo mais ele- 
vado. 

Os cartuchos podem ter tamWm pro- 
gramas aplicativos maiores, rodando 
com a ROM do JR. Nestes casos, eles 
apresentam vantagens como a rapidez 
no carregamento do programa, a nSo 
ocupafSo de espa^o de mem6na pelo 
mesmo e a seguranfa de n<To perder o 
programa por conta do deshgamento da 
mdquina. 

Aldm da saida para cartucho, o JR 
conta com um conector de 50 pinos ba- 
nhados em ouro para expansao externa. 

SOFTWARE 

A linguagem utilizada pelo JR 6 o 
BASIC Nivel II, cujo Interpretador esta 
residente em 12 Kb de memdnaROM. 
Todo o software compativel com os mi- 
cros TRS-80 I e III roda no JR, que tera 
ainda, segundo a Sysdata, compdadores 
de LISP, Pascal, FORTH e APL, al£m 
de um Monitor de Assembler Z80, todos 
em cartuchos e em disquetes. 

0 usuino de um JR pode ampliar seu 
BASIC colocando um chip JR Extended 
BASIC, que a Sysdata oferece opcional- 
mente. Este chip acrescenta os seguintes 
recursos ao JR: 

— Os comandos INPUT @, LINE INPUT, 
LINE INPUT & H, &0, DEFFN, 
DEFUSR, CMSTR, MERGE, MERGE* 
LSET(X,Y^C’,Y\Z) e B ON/OFF, para 
ligar ou desligar o JR Extended Basic 
atravds de software; 

— Os comandos GOTO, GOSUB e RES- 
TORE podem ter como argumento va- 
ridveis ou expressdes. Ex.: GOSUB A *3; 

— Implementa a auto-repeticSo de te- 
clas; 

— Aciona o bip a cada tecla pressionada; 

— Toma o cursor programdvel; 

— Implementa letras minusculas. 

0 JR estd a venda nas prindpais lo- 
jas espeaabzadas, ao prefo mddio de 
CrJ 390 mil em sua con figura 95^0 bdsi- 
ca, e o endere^o de seu fabncante, a 
Sysdata Eletronica Ltda., 6 na Rua Jor- 
ge Duprat Figueiredo 647, Vila Santa 
Catanna, Sao Paulo, SP, CEP 04361 . 

.« 
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Algumas falhas importantes na revisSo do programa 
RENUM, da materia Ren um ere seus pro gramas em BASIC, 
MS n? 20, maio/83, pags. 70 a 81, tomaram o programa 
impraticdvel. As correfOes s£o as seguintes: 

• passo 1 10: 40E6H, ao invds de 40EGH; 

• passo 520: FD4B, ao lnvrfs de FD48; 

• passo 750: 3AFA40, ao inv6s de 3AF440; 

• passo 810: FD8B, ao inv6s de FD88; 

• passo 3850: foi omitido. £ o seguinte: 

FF91 18E8 3850 JR JACHG 

• passo 3839: foi numerado incorretamente. Na verdade, 
6 o passo 3890. 

• passos 3750 a 3920: est£o com os endere$os errados. Os 
corretos s£o: 



3750 


FF87 


3810 


FF8D 


3870 


FF94 


3760 


FF88 


3820 


FF8E 


3880 


FF95 


3770 


FF89 


3830 


FF8F 


3890 


FF97 


3780 


FF8A 


3840 


FF90 


3900 


FF98 


3790 


FF8B 


3850 


FF91 


3910 


FF9B 


3800 


FF8C 


3860 


FF93 


3920 


FF9C 



No numero 22, i pig. 47, o programa Controle de Esto- 
que veio com um pequeno erro na linha 80. Logo ap6s o 
numero 4,799, o card ter S saiu no lugar de dois pontos (:), 
que seria o correto. 

E no numero 23, no programa de adventure Aventuras 
na Selva, i pig. 50, a listagem saiu publicada sem a linha 
420, que 6 a seguinte: 

420 IF NOT CODE B$(2) THEN GOTO 56 



PARA O SEU PROBLEM A, 
NOS T EM OS A SOLU^AO! 




OUTRAS MARCAS. 

• TK 85 e TK 83 
• JR. DA SYSDATA 
• APPLY 300 

• Aplicativos • Utilitarios 

• Perifericos* Acessdrios 
• Literature T6cnica 

• Jogos. 



SCHUMEC 
Profissional-Cienrifico 
M 101/85 

• CPU 8085 (8 Bits) c / 64 Kb 
de RAM 

M 102/88 

• CPI 8088 (16 Bits) c/ 256 Kb 
de RAM 

A te 4 Diskettes de 8" 

Ate 4 Discos Rigid os 
de 6 ou 12 Mb 
Sistema Multiusuario 




DIGITUS 
Pessoal e 



CURSOS: 

Basic Basico. Basic 
Avan<,'ado, CPV1/DOS 
e Assembler. 



DESPACH 



Semi-Profissional 
• Compativei c/ o TRS-80 
2 • Sistema Modular 

' • CPM 

•Alta Resolufdo de V'ideo 

S PARA TODO 0 BRASIL 



k. A 



KALHAU ENGENHARIA LTDA. 
Praca Tiradentes, 1 0 s/402 
Tel.: (021) 252-2752 - R.J. 

Cep. 20.060 
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A maneira prat ica da planejar, acompanh ar e revisar a operapdo de 
sua empresa 6 atraves do uso do BUSINESS-CALC. 

O BUSINESS-CALC e um produto que permite ao empresario en- 
contrar solupoes rapidas para seu problema de processamento 
de dados; com flexibilidade e simplicidade; com baixo custo; total 
dominio do usuario sobre o processo de calculo, prescindindo-se 
de qualquer conhecimento especif ico de computador e processa- 
mento de dados. 

O que e o BUSINESS-CALC? £ um produto composto de um soft- 
ware e uma documentacao. 

SOFTWARE: Matrix eletronica de 254 linhas e 78 colunas progra- 
maveis diretamente pelo usuario, MATRIZ BUSINESS-CALC. 

REQUISITOS DO COMPUTADOR 
Sistema Operacional: SOM ou CPM 
Memoria minima: 32K 

1, M9IMM-CM.C V9I MMI ruuKtl) 2«t219 ( M JCMj| 
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COMPUTEL - COMPUTADORES E 
TELECOMUNICAQdES LTDA. 

AV. RIO BRANCO, 45/811 - RIO DE JANEIRO - 20090 
TEL: 283-1814 
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Baseado na leitura dtica de bar r as codificadas, esse si sterna oferece 
grande vetocidade e confiabilidade no contro/e de mercadorias. 





Leitor dtico 



0 sistema de 
codigo 

de barras 

A I win Wilhelm Elbern 



maginemos um supermercado 
ou uma grande loja, com diver- 
sos departamentos, dezenas (ou 
at6 centenas) de vendedores e milhares 
de produtos diferentes. Dentro desse 
quadro, nao 6 dificil visualizar a dificul- 
dade de se controlar tudo isso (vendas, 
estoque, calculo de comissdes etc.), so- 
bretudo quando se consideram fatores 
criticos, tais como rapidez e confiabili- 
dade. Os controles tradicionais, mesmo 
computadonzados, revelam-se relativa- 
mente lentos (pela burocracia que re- 
querem) e sujeitos a erros (em virtude 
das transcn^des que envolvem, desde o 
preenchimento de plamlhas. atd a entra- 
da de dados via teclado). 

Para contornar esse problema, foi de- 
senvolvido nos Estados Unidos, no lm- 
cio dos anos 70, um processo que permi- 
tiu re^izar todos esses controles a partir 
de uma etiqueta codificada, afixada no 
proprio produto: o sistema de aquisi^ao 
de dados por codigo de barras. Com 
isso, conseguiu-se aumentar substancial- 
mente tanto a velocidade (pois e huma- 
namente impossivel teclar manualmente 
mforma^Oes de 5 a 12 caracteres na ra- 
pidez de uma simples passagem de leito- 
ra 6tica sobre uma etiqueta de 3 a 4 cm 
de compnmento) quanto a precisZo da 
entrada de dados, uma vez que as barras 
de controle, por serem embutidas nos 
cddigos, tornam virtualmente impossivel 
o reconhecimento de um dado erroneo 
pelo computador. 



TIPOS DE CODIGOS 



Da mesma maneira como o famoso 
C6digo Morse da telegrafia utiliza pon- 
tos e tra^os para representar caracteres 
alfanumencos, o codigo de barras faz 
uso de pequenas barras espa<;adas para 
representar digitos e letras. 

O pnncipio em que se baseia a leitura 
dos cddigos de barras 6 a reflexao da luz 
nos espa^s claros e sua absor^ao nas 
barras escuras. Quando o sensor 6tico 
passa pelo codigo, ele deteta as diferen- 
9 as de intensidade da luz absorvida nas 
barras e refletida nos espa^os, modulan- 
do, assim, um sinal el^tnco que ser^ 
postenormente decodificado pelo com- 
putador. 

Esses cddigos sao extremamente di- 
versificados entre si, de acordo com a 
aplica^ao, mas conservam todos a carac- 
teristica essencial de serem reconheci- 
veis por um instrumento de leitura 
6tica. Um dos cddigos mais conhecidos 
6 o UPC (Universal Product Code), 
introduzido nos EUA em 1973 nos pro- 
dutos de supermercados. Desde entSo 
outros cddigos surgiram, como Codigo 
39, o Codigo 2 de 5, o C6digo Hewlett- 
Packard (HP) e o Cddigo Bindrio, entre 
outros, e o sistema, micialmente cnado 
para operar com equipamentos de gran- 
de porte, passou a ser utilizado tambdm 
com microcomputadores. Alguns desses 
cddigos sao mostrados na figura 1. 




Figura 1 - Exemplos de cddigos de barras 
mais comuns. 



Como exemplo, para um melhor en- 
tendimento da codifica^ao por barras, 
analisemos o codigo denominado 2 de 5. 
Neste, cada digito 6 representado por 
duas barras largas e tres estreitas, num 
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total de 5 (dai o seu nome), sendo que 
os espa^s entre as barras — no caso 
especifico deste c6digo — nao contem 
nenhuma mforma^o. As barras largas 
sao tres vezes as estreitas e os espa^s 
sao, pelo menos, da largura das barras 
estreitas. 

Na figura 2, estao representados os 
codigos de barras para os numeros 1 , 2 e 
3, e para o numero 123, na formado do 
cddigo 2 de 5. Como podemos observar, 
o c6digo completo 6 precedido por uma 
“guarda” esquerda e uma “guarda” di- 
reita. Essas guardas sao as barras de re- 
conhecimento, que permitem identificar 
o micio e o fim da mforma^o, bem 
como garantir a bidirecionalidade da lei- 
tura, fazendo com que uma etiqueta 
codificada possa ser lida da esquerda pa- 
ra a direita e vice-versa. 

No exemplo da figura 2, o cddigo do 
numero 123 6 construido da esquerda 
para a direita pela adi^ao dos codigos do 
numero 1, representado por uma barra 
larga seguida de tres barras estreitas e 
outra larga. Depois desse, vem o nume- 
ro 2, formado por uma barra estreita, 
uma larga, duas estreitas e outra larga. 
Assim, pela justaposi 9 ao dos cddigos 
individuals, 6 formado o cddigo comple- 
to. De um modo geral, se considerarmos 
a barra larga como sendo o bit 1 e a es- 
treita o bit 0, este codigo obedece a for- 
ma 9 ao descnta na figura 3. 

Outro cddigo que merece destaque, 
por ser produzido no Brasil, 6 o Cddigo 
Logitec, desenvolvido para uso em mi- 
crocomputador pela empresa gaucha do 
mesmo nome. Trata-se de um cddigo 
binano com um numero maximo de seis 
digitos, que pode ser impresso em eti- 
quetas autoadesivas em formulano con- 
tinuo, de acordo com a numera^ao dese- 
jada. Este cddigo, tamb^m bidirecional, 
6 auto-checavel, nao requerendo digit os 
adicionais de controle. 

LEITURA E RECONHECIMENTO 
DOS CODIGOS 

Os dispositivos de leitura de codigos 
de barras sao geralmente constituidos 
de uma fonte de luz mfravermelha din- 
gida sobre o cddigo, um foto diodo que 
deteta vana 9 des da luz refletida e uma 
interface para a configura 9 ao dos sinais 
etetricos de acordo com o computador 
utilizado. 

Em geral, o espa 9 amento entre os 
elementos de cddigo, suas espessuras, 
bem como o contraste da impressao na 
etiqueta sao os elementos que definem 
os dispositivos de leitura dos cddigos. 
Assim, por exemplo, a densidade das 
barras na etiqueta utilizada determina o 
tipo de leitor dtico que se vai usar. 
Quanto mais densa a etiqueta, mais ca- 
racteres por unidade de comprimento 
poderao ser utilizados, mas, consequen- 
temente, maior serd a precisao necessd- 
na para decodifica-los. 






CODIGO 8 DE S — Exemplo 




guards 12 3 fluordo 

•tqudrda dirtils 



Codigo Completo 



V J 

Figura 2 — Formagao do cddigo de barras 2 
de 5. 
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Figura 3 - Valor dos bits na formagao do cd- 
digo de barras tipo 2 de 5 (SKAN-A -MA TIC). 



0 problema de transfers as mforma- 
9 des da etiqueta codificada para o 
computador poderia, a pnmeira vista, 
parecer relativamente ficil, pois, em 
pnncipio, bastana juntar os zeros e uns 
em bytes de 8 bits e armazend-los na 
memdna para depois processa-los. A so- 
lu 9 ao, no entanto, € mais complexa, 
pois o programa para decodificar esses 
cddigos deve ser capaz de tratar proble- 




Figura 4 - Esquema simplificado do software 
de decodificagao dos cddigos de barras. 



mas, tais como vana 9 des de velocidade 
no momento da leitura, vana9<5es na 
qualidade de impressao da etiqueta, rui- 
do da leitura dtica etc. 

Um programa de aquisi 9 <io de dados 
atrav^s de cddigo de barras, al6m de de- 
pender do tipo de cddigo empregado 
e das caracteristicas do computador, 6 
muito complexo. Esses programas geral- 
mente seguem o esquema simplificado 
da figura 4, onde o programa leitor pro- 
duz um sinal decodificdvel que, em 
seguida, 6 armazenado, em forma de bits 
sequenciais, num buffer (memdna inter- 
medium). Com a ajuda do programa se- 
quenciador, os bits de pandade - de 
guarda e leitura, conforme o caso - sao 
detetados e configurados em bits corres- 
pondentes aos digitos lidos. 

0 programa configurador verifica a 
validade dos bytes, testa erros e aceita, 
ou nao, a leitura efetuada. Uma vez acei- 
ta a leitura, esta pode entao ser proces- 
sada em programas utilitdrios - escritos 
em BASIC, por exemplo — de acordo 
com a utiliza 9 ao das etiquetas codifi- 

cadas. ■ 

m 



A I win Wilhelm Elbern 6 Engenheiro Eletrdni- 
co pela Universidade Federal do Rio Grande 
do Sul (1971) e PhD em Ffsica pela Universi- 
dade de Ruhr-Bochum, Alemanha Ocidental, 
(1976). Atualmente 4 professor adjunto do 
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m.S. Services 



OfiTfl 5 QLUT/Qtt 

Que tal conversar com 
professionals de Informatica 
para resolver o seu 
problema? 

Visite-nos 

A sohu;ao adequada voce 
encontrara aqui. 

Desde cursos de alto mvel 
para iniciantes e 
professionals, 
microcomputadores, 
software, 

assistencia e assessoria 
tecnica ate o suprimento 
adequado. 

Av. Euzebio Matoso, 654 — 
Tel. 813-3355 — SP — 
cep. 05.423 



BIBLIOTECA 
DE INFORMATICA 



BOLSA 

DE SOFTWARE 



BUREAU 
DE SERVIQOS 



QUALIDADE E 
RESPONSABILIDADE 
APRECOS 
REDUZIDOS 



Representante 

Credenciado 

dismoc (Micro Computadores) 

JK Dr €>on CQWERCJO E flffiESSOWfl 

Rua Conde da Bonfim, 344/406 
Bl. 1 • Tijuca • RJ • Cep 20520 • 
Tel.: (021) 234 3945 -C.P.2411 7. 




Video e Audio Ltda. 

MICROCOMPUTADORES 

VIDEOCASSETES 

VIDEOGAMES 

Adaptagio TV Cor PAL-M/NTSC/N' • 2H 

Chaveado ■ Video Direto e Inverso. Transforma- 

gSo pecas originals 

Atari • coleco • VIC-20 • TRS-80 

TK 82/85 - Sinclair - Apple/6500 

TELEVISORES 

Sony - Sharp • Sanyo • Phillips - Philco - Telefun- 
Ken etc. 

SOM EM GERAL 

Transcoder - Chaveamento - Manu!eng4o 
Assistencia Tbcnica Especializada 
Servigo Garantido - Pegas Origmais 

Rua Conde de Bonfim. 375 S/807 • Tijuca 
Rio de Janeiro • RJ. Tel.: 258-3349 



No Recife, visite 

T E L E V i D E 0 (’) 

0 Lojdo de Informatica mats des- 
compltcado do pais! 

Micros, perifericos. suprimentos. 
Software. Cursos. Livros e Revistas. 
Componentes eletrdmcos, pecas e 
Som. 



PREQOS ESPECIAIS. 
FINANCIAMENTO PROPRIO 



Compre pessoalmente ou pelo 
Reembolso: 

TELEVIDEO LTDA. 

R. Marques de Herval, 157 
Tel.: (081) 224-8932, 
RECIFE, PE. 



(') Sr. Industrial: distribuimos s/ 
produto nas melhores condi- 
foes: contatos em S. Paulo (Oil) 
223-5480. 



PORTUGUES 
TECNICAS DE REDAQAO 
EGRAMATICA 

Credenciado no Conselho Federal 
Sob n.° 1039 

Estude em sua casa por corres- 
pondfencia ou no prdprio CURSO 
GPF 

Ndo perca esta oportunidade! 
Aceitamos matricula com pseudd- 
nimo 

© CURSO GPF 

Rua Maxwell, 388 • Tel. (021) 
238-0388 • Rio de Janeiro • RJ • 
Cep.: 20.540 

Atendimento e tira duvidas 24 hs. 
por dia. 

CURSO TAMBEM 
PARA EMPRESAS: 



HS 

Computadores e 
Sistemas Ltda. 



Revendedor BRASCOM 
Microcomputador BR1000M: 

1 a 6 terminals MULTIUSUARIO 
De 2,4 a 384 Mb em- disco 
Impressoras de 100 CpS a 600 Lpm. 
SOFTWARE: Contabilidade, 
Administragao de Pessoal, 

VENDA E RESERVA DE INGRESS0S 

Contas a receber/Pagar, 

OPEN MARKET, 

Faturamento e outros. 



Rua das Marrecas. 25 S/1001 
Tel 262-0697 - ligue HS 
Rio de Janeiro - RJ 




COMPUTAQAO 
NO COMPUTADOR 



Credenciado no Conselho Fe- 
deral Sob. n° 1039 
Linguagem BASIC 
Voc6 aprenderS linguagem 
BASIC, praticando no Com- 
putador. O curso e preparado 
para que voc£ esteja apto a 
programar no prdprio compu- 
tador. 

VOCE VAI PROGRAMAR! 

Curso tambem por correspon- 
dencia 

© CURSO GPF 

Rua Maxwell. 388 - Tel. 238-0388 
Rio de Janeiro • RJ. Cep.: 20.540 
Atendimento e tira duvidas 24 horas 
por dia. 



IRSSELI 



Assistencia Eletr6nica Ltda. 






Rua da Lapa, 107 • 1.* and. 
Tels.: 222-7137 e 222-2278 
Rio - RJ. 



O Future do Homem 
esta na Informatica 

Inscreva-se ja para aprender 
ou aperfeicoar-se airaves da 
mais moderna metodologia 

— I PD (Intr. ao FVoc, de Da- 
dos 

— Programacao Basic 

— CP/M (Sist. Oper. p/ Mi- 
crocomputador 

— Programacao Cobol 

— Projeto/ Programacao es- 
truturada 

— Curso de micro especial 
p/crianca 

/p=jl EPD 

Procev»amenlo de Dados e 
'ypf Sistemas de Informagao 
II l.lda. 

Computador prdprio, Turma: 
Manha.tardeenoite 
Rua Constanta Barbosa, 188 
Salas 403/8/9 
Tel.: 593-4248 - Meier - RJ. 



MICROIDEIA 



SOFTWARE P/TK 82 C • TK45 - CP ZOO 



— Control* 4* MloqtM 

— Comas a paaariracabar 

— Fluno de CMU 
• Mai* dlrat* 

— Cadaalro da cltanla* 

— Procaiaador da laxtos 

— Control* bancarto 

— Cont*bilid*d« domestic* 

— Agenda talatbnica 

— Fltotaca 

— Orcamanto domaattco 

— Histogram* Garai 

— Control* da central os 

— Rasarva da consuttaa 



JOG OS A 1 ORTN 

— Allan Blaslar ■ Bombard* lo - Catslno • Orgio - All 
Baba/Coamtc Radar Sgac* Inradars 

SOFTWARE P/CP 500 
Em Dtsco 

— Control* da aatoqua - Process da Taalo 

— Coma* a Pagar/Racabar - Cadastre da Client at 



ATENDEMOS P/REEMBOLSO 
POSTAL OU AEREO 



REPRESENTANTE: MICRO HOUSE 
Com. Raprant . Ltda. ■ R. Vitcond* da PtralA. 547 
s/307 Ipanama - Cap. 22.410 Tal 294 S24S ou 
atravas da MICROIDEIA A* Marachat CAmara, 



PEEK 

& 

POKE 



pato BIP JS9 Central 246-4180 



Assessoria e Programas 
para CP- 500 

-APLICATIVOS 

-UTILITARIOS 

-JOGOS 

Solicite relagao completa 



Tel. (Oil) 64-0847 
Caixa Postal 19059 
CEP 04599 Sao Paulo SP 



OMPUTEI 
ARE OUR 
PROBLEMS 

We are a specialized group 
in computers, parts and pe- 
ripherals. 

We can quote and sell what 
you need in our area, quo- 
ting from Japan, Europe and 
all U.S.A. 

Please send us a letter te- 
lling what you need and 
you 1 re gonna have the best 
prices. 

We expect to receive a letter 
soon from you. 

Write to 
Export Ltd. 

P.O. Box 21S7 

Miami Beach • Fla. - 33140 - USA. 
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COMPUTADOR 



“CONTABILIDADE 
E DIVERSOS” 

I VOL. Programas em lin- 
guagem “BASIC”, Aplica- 
^oes completamente resolvi- 
das. TK-82 C, TK-85, NE 
Z8000, SINCLAIR Z X 81. 
Quantidades - TEL.: 239-4264 
Varejo — Av. Afranio Melo 
Franco, 170 Lj. B. 

LEBLON 

BANCA JORNAL — Av. 
Ataulfo Paiva Esq. R. Carlos 
Goes — Leblon 
PRECO CrS 3.900,00 
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MICRO-COMPUTADOR 

IBM personal computer CPU c/ 
256K, Drives d 320K (densidade 
dupla) Video: BMC. Mod. 1200SU 
Impressora: Epson MX 100 III, 
136 colunas 

Sistema Operacional DOS e CPM 
Softwares: Basic, visicalc, visis- 
chedule, D. Base I Manual de 
operagao e diagnostico. 

Fone: 240.41.15/14.81 c/Custodio 
Neto. 







Siga os passos dos grandes mestres: mas ao inves de pub Hear um livro, armazene 
em um so programa suas melhores (ou piores\ ) partidas de xadrez. 



Minhas piores 
partidas de xadrez 

L. C. Lobato 



0 programa denominado Partidas de Xadrez permite 
que voc£ armazene partidas deste jogo sem, no entan- 

to, ter a necessidade de recorrer a arquivos em fita 

cassete ou em disco, pois os lances sfo armazenados dentro do 
propno programa, sob a forma de DATA. 

Para colocar os lances de suas partidas, basta editar o pro- 
grama, acrescentando novos comandos DATA, no lugar apro- 
pnado, e depois regrava-lo. 

Este programa 6 muito util para quern joga Xadrez Postal 
e necessita de toda a partida a cada lance do adversano. 

COMO FUNCIONA 

Imcialmente s£o lidos os dados referentes jis partidas e 
mostrados os nomes dos tomeios e dos parceiros em cada tor- 
neio. Deste modo voce escolhe qual partida deseja ver. Os tor- 
neios e os parceiros s3o numerados com os numeros de 1 em 
diante, e voce os escolhe pelo numero. 

Em seguida, o tabuleiro 6 desenhado na tela e voce passa a 
assistir ao desenrolar da partida. Ap 6 s cada lance voce deve 
apertar qualquer tecla (exceto BREAK) para que o seguinte 
seja mostrado. Quando, pordm, a tela ficar cheia,sera necessa- 
no um aperto de tecla adicional para apagar os lances anteno- 
res e mostrar o seguinte. 

Ao terminar a partida, aparece a palavra FIM no lugar do 
novo lance. EntSo, apertando qualquer tecla, o programa ter- 
mina. Querendo outra partida, execute novamente o programa. 

Voce poderd armazenar partidas at£ o lirrute de memona de 
seu computador e dos indices de algumas vanaveis, conforme 
veremos mais adiante. Mas caso voce armazene muitas partidas, 
entSo acontecerd um pequeno problema: o micro demorara um 
pouco mais para localizar a partida desejada. 

Para melhor entendimento do programa, veja ainda a desen- 
9 S 0 das vandveis utilizadas e das pnnapais linhas de comando, 
mostradas a seguir. 



• Descri^ao das varidveis: 

BS%( 8 , 8 ) - pos^So das pe^as no tabuleiro 
TS%( 8 , 8 ) - cores das casas (branca =0 e preta =1) 

P9%(25,1 1) - desenho de cada pe^a na casa branca ou preta 
TS(5) — nome do tomeio (mlximo de 6 ) 

NS (50) - nome do parceiro (atd 51) 

PT%(5) - numero do ultimo parceiro de cada tomeio 
YMS - lance na nota^o alg^bnca 
VM — POS 19 S 0 de memdna do video 
Cl ,R1 - coordenadas da posi^o micial da pe 9 a 
C2,R2 - coordenadas da posi^o final da pe 9 a 

• Descri 9 §o das principals linhas de comando : 

30 a 90 - leitura do nome dos tomeios e dos parceiros 
1 20 a 1 30 - cna 9 ao da matnz TS% 

160 a 200 - cna 9 §o da matnz BS% 

210 a 470 — cna 9 So da matnz P9% 

480 a 520 - desenha a posi 9 ao micial das pe 9 as no tabuleiro 

620 a 740 - leitura e codifica 9 §o dos lances 

750 a 850 - movimenta^o das pe 9 as 

1010 a 1 100 - movimentos de roque pequeno e grande 

1110 a 1 140 — controle de pagina 93 o dos lances 

1 210 a 1340 - sele^o da partida desejada 

1 500 a 1 550 - lances na nota^o algdbnca 

OBSERVAC 6 ES import antes 

As pe 9 as sao desenhadas utilizando-se os caracteres graficos 
de video, eddigos deamais de 128 a 191, de acordo com a ta- 
bela das linhas 220 a 470. 

A matnz BS% guarda a posi 9 ao de todas as pe 9 as do tabu- 
leiro, desde o lni'cio atd o final da partida, e para isso utiliza os 
indices da matnz P9%. Assim, se BS%(1 ,1)= 20, entao na li- 
nha 1 , coluna 1 , existe uma torre branca em casa preta; e 
assim por diante. 
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0 desenho das pegas 6 tal que, em qualquer situagao, a cor 
do centro da pega define se ela 6 branca ou preta. As pegas s3o 
desenhadas utilizando-se duas linhas e 6 colunas. Dessa forma, 
o tabuleiro ocupard 16 linhas por 48 colunas, ficando o resto 
da tela para o nome do advers4no e os lances. 

Caso voc£ n5o queira apertar teclas para passar de um lance 
para o seguinte, basta colocar o comando RETURN na linha 
1180. 

Para cada tomeio, coloque um comando DATA com a pa- 
lavra DMIC10 e, em seguida, o nome do tomeio (linhas 1500 e 
1530). Para cada parceiro, coloque um comando DATA com o 
respectivo nome e, logo a seguir, comandos DATA com os lan- 
ces, terminando a partida com a palavra FIM (linhas 1510, 
1520 e 1540). No final de todas as partidas, coloque um co- 
mando DATA com a palavra FIM (linha 1550). 

N5o hi limite de‘ lanoes por partida e o numero maximo de 
tomeios e parceiros 6 dado pelos indices das vanaveisTS, NS e 
PT%, dimensionados na hnha 10 do programa. 

Finalmente, se qualquer lance for codificado de forma erra- 
da, saira o lance e a mensagem ERRO DE DADO, devendo o 
programa ser mterrompido por BREAK. Qualquer tentativa de 
continuar ocasionard erro. 

Uma observagSo: as partidas exemphficadas na hstagem s3o 
reais e nao foram as minhas piores partidas... 

O programa Partidas de Xadrez foi baseado no programa 
Chess Tutor, pubhcado na 80-Microcomputing, dez./81 . 



Partidas de Xadrez 

10 DEFINTA-Z: DIMBSX (8,8) , TSX (8. 8) »P9X (23. 11),T*(5),N*( 
50) ,PTX (5) 

20 CLSs PRINTTAB (20) "PARTIDAS DE XADREZ": PRINT SPRINT 
25 * ROTINA DE LEITURA DOS T0RNEI0S E PARCEIROS 
30 READA*: IFA»< >" INICI0"THEN30ELSETI*0: NI*0 
40 READT*(TI) :READN*(NI) 

50 READA* : I FA*< >"F I h" THEN50EL SERE ADA* : I FA** "F I M " THENPT 
X (T I ) =N I : GOSUB 1 200: G0T080 : ELSE I FA*= " I NI C I 0 " THENPTX ( 
TI)*NI:TI-TI+1:NI*NI'M:GOT040:ELSENI=NI+1:N*(NI)*A*: 
G0T050 

80 INPUT" InForme numpro do torneio e numero do parceiro 
"JT1.N1 

90 IFT1 *0THENENDELSECLS : RESTORE : T 1 »T 1 -1 : N 1 =N1 -1 
110 ' DEFINICA0 DAS CORES DAS CASAS - CT=0 BRANCA, CT*1 
PRETA 

1 20 CT*1 : FORI *1 T08: F0RJ*1 T08: TSX < I , J) *CT: BT=CT: IFCT*1TH 
ENCT*CT-1ELSECT*CT+1 
130 NEXTJ : CT=BT : NEXTI 
140 MV=0: P=0: CP=1 32 
150 ’ DEFINICAO DA POSICAO INICIAL 
160 F0RI*1T08:F0RJ=1T08:READBSX (I » J) : NEXTJ. I 
170 DAT A20, 9, 22, 11, 24, 10, 21, 8, 7, 19, 7, 19,7,19,7, 19 
180 DATA25, 0.25, 0.25. 0.25, 0,0, 25, 0,25, 0,25, 0,25 
190 DATA25, 0,25, 0,25, 0,25, 0,0, 25, 0,25, 0,25, 0,25 
200 DATA13, 1, 13, 1 , 13, 1, 13, 1 ,2, 15. 4, 17,6, 16,3, 14 
205 » DESENHO DAS PECAS 

210 F0RI=0T025: F0RJ=0T01 1 1 REA DP 97. ( I , J ) : NEXTJ, I 
220 DATA191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, 191 
s ’ CASA BRANCA VAZIA 

230 DATA191. 191, 143, 175, 191, 191, 191,183,176. 178,191,191 
: ’ PEAO PRETO CASA BRANCA 

240 DATA191 ,147. 135,139, 163, 191 ,191,177,176.176,178,191 
TORRE PRETA CASA BRANCA 

250 DATA191, 143. 131, 131, 131, 191, 191, 191, 177, 176, 184, 191 
: ’ CAVALO PRETO CASA BRANCA 

260 DATA191, 159, 131, 139, 191, 191, 191, 183, 176. 178, 191, 191 
: ’ BISPO PRETO CASA BRANCA 

270 DATA191 . 154,129,139, 186,191,191, 179,176, 178, 187,191 



Luiz Carlos Lobato Lobo de Medeiros 4 Engenheiro Eletrdnico forma- 
do pelo IT A em 1968. Come^ou a trabalhar em processamento de 
dados em 69, nas dmas de ProdupSo e Suporte Tdcnico em equipamen- 
tos IBM, e atualmente 4 assessor do diretor de Recursos Humanos da 
Telebris para assuntos de processamento de dados, em Brasilia, cargo 
que tern como objetivo estimular a utilizacao de microcomputadores 
entre os em pregad os da diretoria. 



j** Tire seu micro 

do isolamento 

lii n 

Agora que voce ja adquiriu seu micro e estb tirando 
partido de tudo o que ele pode fazer, saiba que isso 6 apenas 
o inicio. 

Acoplando um modem UP 1200/D Parks ao seu 
aparelho, voce sai do isolamento e pode interligar seu 
Vr-- microcomputador ao de um amigo ou banco de dados, 

atravbs da linha telefonica, ampliando 
consideravelmente seu uso, seja para o trabalho ou lazer. 

De maneira rapida e eficiente, facil como dar 
um telefonema, voce podera copiar 
programas, aumentar seus dados de 
membria, receber e transmitir as mais 
variadas informagoes. e atb jogar xadrez b 
distancia. De operagao simples, o UP 1 200/11 tern baixo custo de 
funcionamento e manutengao e pode ser utilizado em linhas privativas ou discadas. - aJS 

De vida nova ao seu micro. Tire-o do isolamento com UP 1200/11 Parks: ' 

o modem da integragao. 



PARKS 



Park* - Equipamentoa EletrAnicoa Lida. 

f 40 £“? • Fone < 0n > MM3<0 - tlx (0U) 23141 • Belo Horizonte Av. Afonso Pena. 941 

Fo™ • S 000 A : 37 • Fone I 061 ) 23V053B • Curitiba: Rua Carlos de Carvalho. 1766 

Fone (041) 232-1814 - tlx ((Ml) 5406 • Porto Alefre: Av. Parent. 2335 - Fone (0512) 42.5500 - tlx (051) 1043 • Recife: Av. Const 
Aguiar. 5025 - con). 104 - Fones (081) 325-21 23 e 325-2307 / Av. Norte. 3090 - Fone (081) 241.5309 • Rio de Janeiro: Av. Rio 
Branco. 245 - s/2102 - fone: (021) 220-2149 • Salvador: Av. Amaralina. 818 - sale 102 - Fone (071) 249-9744 e 247-6344. 
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MINHAS PIORES PARTIDAS DE XADREZ 



S’DAMA PRETA CASA BRANCA 

280 DATA159, 143, 145, 155,143, 191,181,176,176,176,176,191 
S’REI PRETO CASA BRANCA 

290 DATA191, 191, 143, 175, 191. 191, 191, 183. 178. 178, 191, 191 
: ’ PEAO BRANCO CASA BRANCA 

300 DATA191, 147, 167. 155, 163, 191, 191, 177, 179, 179, 178, 191 
S’ TORRE BRANCA CASA BRANCA 

310 DATA191, 143, 131, 179, 131, 191, 191, 191, 177, 179, 184, 191 
s’CAVALO BRANCO CASA BRANCA 

320 DATA191, 159, 179. 155, 191. 191, 191, 183. 178, 178, 191, 191 
s’BISPO BRANCO CASA BRANCA 

330 DATA191 , 154,185.155,186.191 ,191,179,178.178,187.191 
s ’DANA BRANCA CASA BRANCA 

340 DATA159. 143,145,155, 143. 191 ,181,176,164,164. 176, 191 
S’REI BRANCO CASA BRANCA 

350 DATA1 28, 128, 176. 144, 428, 128, 128, 136, 141, 141, 128. 128 
s’ PEAO PRETO CASA PRETA 

360 DATA12B, 172. 152, 164. 156, 128, 128, 142. 140, 140, 141, 128 
S’ TORRE PRETA CASA PRETA 

370 DATA128, 176, 188, 140, 188, 128, 128, 128. 142. 140, 135, 128 
s’CAVALO PRETO CASA PRETA 

380 DATA128, 160, 140, 164, 128. 128, 128, 136, 141. 141, 128, 128 
s’BISPO PRETO CASA PRETA 

390 DATA128, 165, 134, 164,133,128.128,140,141,141,132,128 
s’ DANA PRETA CASA PRETA 

400 DATA160, 176,174,164,176,128, 138,143,140.142,143,128 
s’REI PRETO CASA PRETA 

410 DATA128, 128, 176, 144, 128, 128, 128. 136, 143. 141. 128, 128 
s’ PEAO BRANCO CASA PRETA 

420 DATA128, 172, 184, 180, 156, 128, 128, 142, 143. 143, 141, 128 
s’ TORRE BRANCA CASA PRETA 

430 DATA128. 176, 188, 188, 188. 128, 128, 128, 142, 143, 135, 128 
s’CAVALO BRANCO CASA PRETA 

440 DATA128, 160, 188, 180, 128. 128, 128. 136, 143. 141, 128. 128 
s’BISPO BRANCO CASA PRETA 

450 DATA128, 165.190, 180.133,128.128,140, 143.141,132.128 
s’DAMA BRANCA CASA PRETA 

460 DATA160, 176, 174, 164,176. 128.138,143,143, 143,143, 128 
s’REI BRANCO CASA PRETA 

470 DATA128, 128,128, 128,128,128,128.128,128,128.128.128 
s’ CASA PRETA VAZIA 

480 V(1* 15376s VN=0 s ’ROTINA DE DESENHO DO TABULEIRO 
490 F0RI“8T01STEP-1 :F0RJ*1T08:F0RK=0T05 
500 POKEVM+VN+K, P9X (BSX ( I » J ) , K) 

502 P0KEVM+VN+K+64.P9X(BSX(I» J) , K+6) 

510 NEXTK: VN=VN+6 s NEXTJ S VH*VM+ 1 28 s VN=OS NEXT I 
520 VM= 15376: G0SUB1 110 
530 G0SUB1300 

540 PR I NT 80 , " ADVERSAR 10 " 5 : READA*: PR INT864 . LEFT* ( A*. 15 ) S 

600 I FP*OTHENMV=MV+ 1 

610 PRINT8CP-4. MVS 

615 ’ LEITURA DOS LANCES 

620 READYM*: IFYM«="FIM"THENPRINT§CP+P*6, YM*S : G0SUB1 180: 
END 

630 PRINT«CP+P+6»LEFT*(YM*, 2) +RIGHT* ( YM*. 2) 5 
710 C1 = ASC (MID* ( YM* , 1 , 1 > ) -64: R1 =ASC (M ID* < YM*» 2, 1 ) ) -48 
720 C2=ASC(MID*<YM*,3,1))-64:R2=ASC(MID*<YM*.4. 1) )-48 
730 I FC 1 < 1 ORC 1 >80RR 1 < 1 ORR 1 >80RC2< 1 0RC2 >80RR2< 1 0RR2 >8THE 
NG0SUB1 1 10SG0T0870 

740 I FBSX (R 1 . Cl ) =00RBS7. (R 1 , Cl ) -25THEN870 
745 ’ ROTINA DE MOVIMENTACAO DAS PECAS 
750 BSX (R2. C2)=BSX(R1 ,C1 > +t 2* (TSX (R2, C2) -TSX <R1 ,C 1 ) ) s B 
SX(R1 ,C1 ) =25*TSX(R1 ,C1) 

760 I FP=OANDYM* = " E 1 G 1 "ANDBSX ( 1 , 7) *24THENBSX (1 ,8>*0s BSX 
( 1 , 6 ) =8 : GOSUB 1070 : G0T0855 

770 IFP=0ANDYM*="E1C1 "AND BSX ( 1 , 3> *24THENBSX < 1 , 1 >«0: BSX 
< 1 , 4 > =8 : GOSUB 1 0 1 Os G0T0855 



780 I FP* 1 ANDYM*= " EBG8 "ANDBSX (8,7) =6THENBSX ( 8, 8 ) =0 s BSX 
(8 , 6 ) * 1 4 : GOSUB 1 090 : GOT 0855 

790 I FP= 1 ANDYM*- " E8C8 " ANDBSX ( 8. 3) =6THENBSX ( 8, 1 ) -0 s BSX 
(8,4)*14:G0SUB1030sG0T0855 

800 Jl*VM+< <8-Rl)*128>+<<Cl-l)*6>:J2=VM+< <8-R2)*128)+< 
(C2-1 )*6) sF0RI=0TO5 
810 P0KEJ1+I.P9X(BSX(R1.C1).I> 

820 POKEJ 1+I+64.P9X (BSX (R1 , Cl ) , I ♦6) 

830 P0KEJ2+I. P9X(BSX (R2.C2) , I ) 

840 P0KEJ2+I+64.P9X (BSX <R2, C2) , 1+6) 

850 NEXT I 
355 GOSUB 11 80 

860 I FP=OTHENP= 1 : G0T0620: ELSEP=Os GOSUB 1110s GOT0600 
870 G0SUB11 10SPRINT8CP-4, “ERRO DE DADO" s : GOTO 1 125 
1005 ' GRANDE ROQUE DAS BRANCAS 

1010 FOR 1 1 =0T05 : POKE 1 6272* 11,128: POKE 1 6336* 1 1 , 1 28 : POKE 
1 6284+ 1 1 , P9X ( 24 . 1 1 ) s POKE 1 6348+1 1 , P9X ( 24 , 1 1 +6 ) 

1020 POKE 16290+1 1 »P9X (8,11) SPOKE 16354+ 1 1 , P9X (8, II+6) s P 
OKE 16296+ 1 1 , 1 28 : P0KE1 6360+1 1 , 1 28: NEXT 1 1 : RETURN 
1025 ’ GRANDE ROQUE DAS PRETAS 

1 030 FOR 1 1 =0T05 : POKE 1 5376+ 11,191s POKE 1 5440+ 1 1 , 1 9 1 s POKE 
15388+1 1 , P9X<6, II): POKE 15452+ 1 1 ,P9X (6,11+6) 

1040 POKE 15394+ 1 1, P9X (1 4, II) SPOKE 15458+ II, P9X( 14, II+6) 

: POKE 1 5400+ 1 1 , 1 91 : POKE 1 5464+ II, 191: NEXT 1 1 s RETURN 
1065 ’ PEQUENO ROQUE DAS BRANCAS 

1070 FOR 1 1 =0T05 : POKE 1 6296+ 11,128: POKE 1 6360+ 1 1 , 1 28 : POKE 
1 6302+1 1 , P9X (8, 1 1 ) s POKE 16366+ 1 1 , P9X (8 . 1 1+6 ) 

1080 POKE 16308+ 1 1 , P9X (24. II ) s P0KE16372+I I ,P9X<24. II+6) 

: POKE 1631 4+ 11,191: P0KE1 6378+1 1,191: NEXT 1 1 : RETURN 
1085 ’ PEQUENO ROQUE DAS PRETAS 

1090 FORI I=0T05:P0KE1 5400+1 1, 191 s P0KE15464+ II , 191 :POKE 
15406+1 1 , P9X( 14.11) SPOKE 15470+ 1 1 . P9X( 14,11+6) 

1100 POKE 1541 2+ 1 1 »P9X (6,11) SPOKE 15476+1 1 . P9X(6, 1 1+6) s P 
0KE15418+II , 128 SPOKE 15482+ 1 1, 128: NEXTII :RE TURN 
1110 CP=CP+64 
1120 IFCPC-974RETURN 
1125 GOSUB 1 180 

1130 FORI I = 192T0960STEP64: PRINTS 1 1 , STRING* ( 15.32) I : NEX 
T 

1140 CP=196:RETURN 

1 180 A*=INKEY*S IFA*=" "THEN1 1B0ELSERETJRN 
1200 ’ ROTINA DE SELECAO DA PART I DA 

1210 K=0: Jl=OsFORI=OTOTI s PRINT'TORNEIO" 5 1 + l } " ";T*(I)S 
" PARCEIROS" 

1220 FORJ=J 1T0P.TX ( I ) s PRINTK+1 S " "5N*<K) J "/" J sK-K+lsNEX 
TJs PRINTS J1*PTX( I )+lsNEXTI 
1230 RETURN 
1300 RESTORE 
1305 K=0: J 1 =0 

1310 READA*: IFA*O"INICI0"THENl 310 

1 320 IFT1 >J 1THENJ 1 »J1 + 1 s K=PTX ( J 1 ) : G0T0131 OELSEREADA* 

1330 IFN1*KTHENRETURNELSEK=K+1 

1340 READA*: IFA*< >"FIM"THEN1340ELSE1330 

1490 ’ COLOCAR AQUI OS LANCES NA NOTACAO ALGEBRICA 

1500 DATA INICIO.TC. 1/193 

1510 DATA MARCUS VILLELA, E2E4 ,E7E5, G1F3. B8C6, F1C4.F8C 
5, C2C3.G8F6, D2D4.E5D4. C3D4.C5B4, B1C3,F6E4,FIM 
1520 DATA RUBENS SANTELL0,C2C4,E7E6,D2D4,D7D5,B1C3,C7 
C5.C4D5, E6D5, D4C5, D5D4 . D1A4. B8C6, C3B5. F8C5. A2A3, 
A7A6 , C 1 F 4 . E8F8 , E 2E 4 . D8 A5 , A4A5 , C6A5 . B5C7 , A8A7 , B2B 
4.C5B6.F4D6.FIM 
1530 DATA INICIO, VI II ZONAL 

1540 DATA FRAY J0SE.E2E4, G8F6.E4E5, F6D5.C2C4, D5B6.D2D 
4, D7D6.F2F4, G7G6.C1E3, F8G7 , G1F3, D6E5.F4E5, E 8G8. 
FIE2.C8F5.B1D2.FIM 
1550 DATA FIM 




CURSO PRATICO DE BASIC — INTENSIVO 

COM APLICAQOES REAIS PARA EXECUTIVOS 
E ESTUDANTES — TURMAS DE 6 ALUNOS 
APENAS 5 SEMANAS C/2 AULAS SEMANAIS 
TESBI - Rua Guilhermina, 638 - Tel.: (021) 501-3297 * 249-3166 
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Datalife 




Verbatim 






PRODUZIDO NA ZONA FRANCA 
DE MANAUS SIGNIFICA: 
QUALIDADE COM 5 ANOS 
DE GARANTIA E O MELHOR 
PRECO DO MERCADO. 



DATALIFE * diskettes s3o produzidos com uma unica 
preocupag§o: o armazenamento de dados sem erros. 

Esse comprometimento requer precisas tecmcas 
de produg§o e rigoroso controle de qualidade. 

DATALIFE ® diskettes 8 ou 5 1 /4 polegadas tem 
certificag§o 100% sem erros. 

A diferenga DATALIFE “ e pura e simplesmente qualidade. 



Revendedores e Fabricantes interessados: 
tel: (Oil) 262-5332 



ENTREGA IMEDIATA 

simples face/simples densidade 
FD 34-9000 26 setores - 128 bytes /setor, 8 polegadas 

simples face/dupia densidade 
FD 34 8000 Nao setorizado - nao formatado 8 polegadas 

nn ta dupla tace/dupla densidade 
uu 26 setores - 256 bytes/setor 8 polegadas 

nn 'u anm dupla face/dupla densidade - N3o setorizado 
uu ^ n3o formatado 8 polegadas 

Entrega a partir de setembro 1 983 

simples face/dupla densidade 

MD 525-01 5 i/4 polegadas 

MD 550-01 dupla face/dupla densidade 5 1 /4 polegadas 

Em embalagem de cartao com 10 umdades 
Caixas piasticas opcionats. 

PARA ENCOMENDAS FORA DE SAO PAULO, 
A MEMPHIS PAGA A UGAQAO. 
DISQUE (Oil) 900-8462 



Distributor: Memphis 

Industria e Comercio Ltda. 

Av. Arnolfo de Azevedo, 108 - Pacaembu - Sao Paulo - Brasil 
CEP 01236 - PABX (011) 262-5577 - Telex (011) 34545 
Filial Rio: Praia do Flamengo, 66 cj: 1519 Tel: (021) 205-3849 - 225-3469 
Matriz: Av. Angelica, 35 - Sta. Cecilia - Sao Paulo - Brasil - CEP 01227 
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MICRO SISTEMAS completa mais um ano de vida. Como fizemos 
anteriormente, aqui est£ o nosso Indice, contendo 
todos os programas, artigos e reportagens que ocuparam nossas 
paginas nesse ultimo periodo, isto do nQ 13 ao nQ 24. 
Consu/te o Tndice e rea/imente sua memdria\ 




_._VMicro 

Sistemas 



v*c«c son* Con^tcoc- 

terr'oicea cc^roooo* ©302 

"O Hi "f wiv ai 



Numero 13, outubro 1982 



8 ConversAo Universal de Numeros — 

Programa de FAbio Cavalcanti da 
Cunha para a TI-59. 

VisiCalc, o formulArio eletrdnico — Ar- 

tigo de Leo Nacelli. 

18 InteligAncia Artificial — Artigo de 
Antonio Costa. 

20 Livros — "Microcomputadores — Intro- 
dupAo A linguagem BASIC" de Roberto 
Kresch. 

22 O computador pessoal — I — Artigo de 
Renato Sabbatini sobre micros pessoais: 
surgimento, componentes e utilidades 

28 Proteja seu programa no DGT-100 — 
Artigo de Newton Duarte Braga Junior 
com dicas sobre a protepao de software. 

2/y Lista Telef&nica Automatizada — Pro- 
grama de Roberto Chan. 

36 Modularidade e tecnologia aberta: as 
propostas da Del — Entrevista com 
Luiz Carlos Gomes, diretor da Del — 
Engenharia e ComputapAo Ltda. 

40 I nformAtica 82: cresce o espapo dos mi- 
cros — Reportagem sobre a II Feira e o 
XV Congresso Nacional de InformAtica. 

44 Um programa para o pequeno investi- 
dor — Programa de Fausto Arinos de 
Almeida Barbuto. 

50 MAtodos de OrdenapAo — I — Artigo de 
Roberto Chan e HAlio Lima MagalhAes 
sobre as caracterfsticas e vantagens de 
onze SORTs — com os respectivos 
programas implementados em BASIC 
— e uma anAlise comparativa de todos 
eles. 

58 O impacto do micro na literatura 
tAcnica — Reportagem sobre a edipao 
de livros e revistas sobre microcompu- 
tadores. 

60 Dupla face em disquetes simples — 

Artigo de Samuel JosA MacDowell. 



64 Conhepa o interior do 6502 — Artigo 
de Carlos Eduardo Tarrisse da Fontou- 
ra. 

68 As impressoras — Artigo de Antonio 
Carlos J. F. Visconti sobre os tipos e 
caracterfsticas das impressoras utiliza- 
das por microcomputadores. 

72 O micro e o Radioamadorismo — 
Artigo de MArio Negreiros dos Anjos. 

76 ExpansAo de 2 K para TKs e NEs — Ar- 
tigo de Manuel Maria C. P. de Castello. 

80 Curso de ProgramapAo SintAtica para a 
HP-41C/CV — II — ContinuapAo do 
curso de Luiz Antonio Pereira. 

86 Palpites (cibernAticos) para a Loto — 
Programa de Ivo Ferreira Junior. 

91 Um anode MICRO SISTEMAS. 



Sir'- 



/Micro 
Sistemas 




Numero 14, novembro 1982 

6 Representapao de figures por compu- 
tador — Artigo de Luiz Antonio Perei- 
ra sobre a representapAo grAfica de figu- 
res no HP-85. 

12 Da mAquina de escrever A mAquina que 
escreve — Artigo de Amaldo Humberto 
Parisoto sobre a evolupSo da comunica- 
pao escrita e as multiplas vantagens do 
uso de processadores de texto em uma 
empresa. 

20 Introduzindo a L6gica — Artigo de Or- 
son Voerckel GalvAo. 

28 CAIculo de vigas contfnuas na TI-59 — 
Programa de Claudio Luiz Curotto. 

34 Programando para crianpas — Artigo de 
Liane Margarida Rockenbach Tarouco 
sobre a utilizapAo do microcomputador 
no ensino de crianpas. 

36 O TK82-C: micro s6 no tamanho. 

40 MAtodos de OrdenapAo — II — Parte fi- 
nal do artigo de Roberto Chan e HAlio 
Lima Magalhaes. 



48 Vfdeo-texto: comepa no Brasil a socie- 
dade de informapAo — Reportagem so- 
bre a implantapAo do sistema de vfdeo- 
texto da Telesp. 

52 O computador pessoal — II — Parte fi- 
nal do artigo de Renato Sabbatini. 

56 XV Congresso Nacional de InformAtica 
— Cobertura do even to com a selepao 
dos principals assuntos discutidos nos 
seminArios. palestras e painAis. 

64 II Feira Intemacional de InformAtica — 
ApresentapAo dos principals lanpamen- 
tos (hardware e software), na Feira pa- 
ralela ao XV Congresso Nacional de 
InformAtica. 

72 A primeira comunidade teleinformati- 
zada do Brasil — Reportagem sobre o 
Projeto Ciranda, Incluindo uma entre- 
vista com o Vice-Presidente da Embra- 
tel, Luiz SArgio Coelho Sampaio. 

77 Livros — 'TK82-C ProgramapSo BASIC" 
da Microdigital Eletrdnica Ltda. 

78 Micro-Dicas — Monitores x televisores 
de Paulo Saldanha. 

82 Curso de Programapio SintAtica para a 
HP-41C/CV — III — ContinuapSo do 
curso de Luiz Antonio Pereira. 

88 MICRO SISTEMAS, Ano I - Indlce, 
contendo todas as matArias publicadas 
em MS do numero 1 ao numero 12. 

92 ImarAs: solupdes integradas e pronta- 
entrega — Reportagem com a loja Ima- 
rAs Microcomputadores, SP. 




Numero 15,dezembro 1982 

8 Mala direta no micro — Programa de 
Jbneson Carneiro de Azevedo. 

14 Linguagem de mAquina no DGT-100 — 
Artigo de Newton Duarte Braga Junior. 
18 ConversAo — Fator Z no HP-85. 

20 Mais operapdes Ibgicas: NAND e XOR 
— Artigo de Orson Voerckel GalvAo 
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sobre os monitores do TD-2CX) e do 
Cobra-300. 

25 Livros — "LCP — Lbgica de ConstrupAo 
de Programas: Um MAtodo de Progra- 
mapAo Estruturada" de Jean-Domini- 
que Warnier. 

26 Winchester, a evolupao dos discos mag- 
nAticos rfgidos— Artlgo de Ulrich Kuhn. 

30 Microdigital consolida-se na faixa dos 
pessoais — Entrevista com o Diretor da 
Microdigital, Tomas Kovarl. 

34 II Feira Internacional de InformAtica — 
ConclusAo A cobertura da II Feira In- 
ternacional de InformAtica com a pu- 
blicapAo de alguns lanpamentos na Area 
de discos magnAticgs e Impressoras. 

38 IntegrapAo NumArica — Do is programas 
de HernAn Campero Lopez, um em 
FORTRAN e outro em BASIC, para 
cAlculo de integrals atravAs do MAtodo 
Trapezoidal. 

42 Organ izapAo da membria da TI-59 — 
Artigo de Baker Jefferson Mass. 

50 LISP, a linguagem inteligente — Artigo 
de Marisa da Motta e Sandra Mary He- 
bihara. 

56 O micro na pecuAria bovina — Artigo 
de Alvaro Luiz Marques MagalhAes so- 
bre a implantapao de microcomputado- 
res na agropecuArla. 

62 Pesquisa e industria mais prbximas de 
pois do Congresso — ContinuapAo da 
cobertura da II Feira Internacional de 
InformAtica, incluindo a mostra das 
Universidades. 

64 Pesquisa e desenvolvimento, aWm do 
eixo Rio/Sao Paulo — Reportagem so- 
bre a Feira Brasileira de Negbcios — Fe- 
bran, realizada em setembro de 1982, 
em SAo Paulo. 

68 Curso de ProgramapAo SintAtica para a 
HP-41C/CV — Final — Curso de Luiz 
Antonio Pereira. 

76 O monitor SOM sem segredos, no TD- 
200 e Cobra-300 — Artigo de Nilton do 
Valle Oliveira. 

78 Clappy: a nova realidade da Clap — Re- 
portagem com a loja Clappy, RJ. 




Numero 16 Janeiro 1983 

12 Duas versfies para o Jo go da Forca — 

Dois programas, um de Carlos Henri- 
que Klein para o TK82-C e outro, de 
Nelson Luis de Carvalho Freire, para a 
HP-41 C/C V. 

15 Equipamentos — Fenix II. 

16 Conhecendo uma UCP, a 8080 da Intel 
— Artigo de Orson Voerckel Galvao. 

20 Descubra a senha — Programa de Luiz 
Eduardo M. C. Sutter e FIAvio Henri- 
que Costa Nogueira, que implementa o 
famoso jogo Master Mind, para micros 
compativeis com o TRS-80 Model I. 

24 Alguns Macetes de Programapao — Ar- 
tigo de Claudio Nasajon. 

28 Ei, eu j£ sei programar! — Programas de 
Alexandre Sabbatini, de nove anos de 
idade. 



30 Corra... que o micro controla — Uma 
nova versAo do programa "AplicapAo 
do Computador em AnAlise de Atle- 
tas", publicado em MICRO SISTEMAS 
numeros 3 e 4, de Arnaldo M. Mefano. 

34 MICRO MERCADO — Um quadro dos 
microcomputadores fabricados e co- 
mercializados no Brasil. 

42 Jogo do 21 — Programa de Jackson 
Tong desenvolvido num micro da LA- 
BO, em linguagem BASIC. 

44 De calculadora a relbgio digital — Um 
programa de Carmine Montouri para a 
HP-41 C. 

45 Livros — “A Sociedade da InformapAo 
como Sociedade Pbs-lndustrial" de 
Yoneji Masuda. 

46 Uma avaliapio de micros nacionais — 
Artigo de Carlyle MacAdo Junior e 
Edelvicio Souza Junior sobre os mi- 
cros D-8000, CP-500, DGT-100, Micro- 
engenho e Poly 101SS, analisados e 
comparados, em termos de processa- 
mento, com alguns dos mais famosos 
equipamentos estrangeiros. 

50 Rapidez e emopao na Fbrmula 1 — Pro- 
grama de Joneson Carneiro de Azevedo. 

52 Transforme seu DGT-100 em um ins- 
trumento musical — Artigo e programa 
de Carlyle MacAdo Junior e Edelvicio 
Souza Junior para obter notas musicals, 
no DGT-100 em uma ampla faixa de 
escalas, utilizando um mi'nimo de soft- 
ware. 

58 Jogo da Velha — Programa de Jacyr 
Vianna de Quadros Junior para o 
TK82-C. 

60 Venpa o gAnio no DGT-100 — Um di- 
vertido jogo que Simula o brinquedo 
Genius inclusive com efeitos sonoros, 
cedido pela Digitus. 

62 Uma questAo de afinidades — Programa 
de Bruno Barasch, feito para a HP-41C/ 
CV, que considera a data de nascimen- 
to de duas pessoas para determinar o 
grau de afinidade existente entre elas. 

63 Comande um ataque aAreo — Programa 
de Carmine Montouri para a HP-41 C. 

64 Jogue com efeitos aleatbrios — Artigo 
de Luiz Eduardo M. C. Sutter que apre- 
senta alguns modelos e macetes de pro- 
gramapAo relacionados com a gerapAo 
de eventos aleatbrios. 

67 Acerte o alvo no D-8000 — Programa 
de Ivo D'Aquino Neto. 

70 Aroldo, o tecndfilo — Conto de Guido 
Heleno. 

72 Jogos em computador, um assunto 
muito sArio — Reportagem sobre a fa- 
bricapAo e comercializapAo de jogos no 
Brasil, incluindo uma pequena lista dos 
principal jogos disponfveis no merca- 
do brasileiro. 

78 OPT Soft & Hard: vendendo solupdes 

— Reportagens com a loja OPT Soft & 
Hard, SP. 



Numero 17, fevereiro 1983 

10 O micro no ensino mAdico: a experiAn- 
cia brasileira — Artigo de Renato En- 
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drizzi Sabbatini sobre uma experiAncia 
feita em Ribeirfo Preto com o uso de 
microcomputadores no ensino mAdico. 

14 Uma aplicapAo original — Reportagem 
sobre o uso de microcomputador na 
Avicultura Casa Afonso, no bairro de 
Perdizes, em SAo Paulo. 

16 Execupao das instrupdes no processa- 
dor — Artigo de Orson Voerckel Gal- 
v5o . 

20 A funpao USR(X) no D-8000 - Ar- 
tigo e programa de Ivo D'Aquino Neto. 

23 O micro aliado A criapAo — Reportagem 
sobre o emprego do microcomputador 
na agAnciade publicidadeSSC & Lintas. 

26 Z80A e ZX81, uma poderosa combina- 
pio — Artigo de Milton Cabrerizo, 
apresentando um detalhamento da 
UCP Z80A, a partir de sua utilizapAo 
no micro inglAs ZX81 . 

32 Uma profissio diferente: cabeleireiro 
cibernAtico — Reportagem sobre o uso 
de um Sistema 700 no SalAo Hairsty- 
ling, em SAo Paulo. 

34 Livros — "Understanding Your ZX81 
ROM" de Ian Logan. 

35 O computador... entre queijos e vi- 
nhos — Reportagem sobre o emprego 
de um D-8002, da Dismac, na Eurico 
ComArcio de Secos e Molhados, em SAo 
Paulo. 

36 Guerra Espacial — Programa de Jbne- 
son Carneiro de Azevedo para os com- 
patfveis com o TRS-80 Modelos I e III. 

38 Como adaptar um joystick ao DGT- 
100 — Artigo de Newton Duarte Braga 
Junior. 

40 Modems — Artigo de FIAvio Arthur Ti- 
bau sobre os tipos, a utilidade e o fun- 
cionamento dos modems. 

46 Ordenador alfabAtico — Programa de 
Renato Degiovani para o NE-Z8000. 

50 Sistemas para diagnbsticos mAdicos — 
Reportagem sobre o desenvolvimento 
de hardware e software pelos engenhei- 
ros da DivisAo de InformAtica do Insti- 
tuto do Corapao, em SAo Paulo. 

52 Macrofotografia na HP-41C — Progra- 
ma de Marcio Neumann que revela qual 
a melhor abertura do diafragma em ma- 
crofotografias. 

54 Micro antra para clube dos dez mais — 

Reportagem sobre a utilizapAo de um 
microcomputador no Video Clube Na- 
cional, no Rio de Janeiro. 

56 O computador no ensino de InglAs — 
Reportagem sobre o emprego do micro 
no Sistema Cenpro de Ensino de Lin- 
guas, em SAo Paulo. 

58 Os brinquedos que ensinam computa- 
pAo — Reportagem sobre jogos manuals 
brasileiros que tAm por tema o compu- 
tador. 

60 Resta 1, desafio na HP-41C — Progra- 
ma de Carlos Acyr Pinto da Luz. 

62 O micro em um escritbrio de AtuAria — 
Reportagem sobre o emprego de um 
S-700 em um escritbrio de AtuAria. em 
SAo Paulo. 

64 AplicapAo em doses homepAticas — Re- 
portagem sobre a implantapAo de um 
microcomputador em um consultbrio 
homeopAtico. 

66 Curso de Assembler — I — Curso de 
Amaury Moraes Jr. 

70 AIM-65, para pesquisa e desenvolvi- 

mento — Reportagem sobre a aplica- 
pAo dos micros voltados para a Area de 
pesquisa. 

72 Bacilus Terminates EspecimAn — Conto 
de Luis Carlos Silva Eiras. 

74 Calcule o tempo de retomo de seu in- 
vestimento — Programa de Fausto Ari- 
nos de Almeida Barbuto para o TK82- 
C e NE-Z8000. 

78 Digit-Hall, um novo espapo para os mi- 
cros — Reportagem sobre o Digit -Hall 
da Casa Garson. 
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Numero 1 8, mar go 1983 

10 Professor JC: proves de multiple esco- 
Iha no micro — Programa de Joneson 
Cameiro de Azevedo. 

12 A revolupao das letras — Artigo de Re 
nato Pompeu sobre o impacto dos mi- 
croprocessadores na produp5o literaria. 

14 Sinais de estado e ciclos de mdquina — 
Artigo de Orson Voerckel Galvao so- 
bre o microprocessador da Intel 8080. 

18 4 Kb de RAM no TK82-C — Artigo de 

Glaucus Brelaz sobre o projeto de uma 
expansfo de 2K para o TK, que permi- 
te o uso das expansbes de 16 e de 64 
Kb oferecidas pelos fabricantes. 

20 O computador como ferramenta de en- 
sino — Artigo sobre as principals deli- 
berates do primeiro encontro que dis- 
cutiu a introdugSo do computador no 
ensino brasileiro em Salvador, Bahia, 
relatadas por um dos participantes, 
Fernando Jos6 de Almeida. 

26 Livros — "Que 6 isso computador?" do 
Sindicato dos Jornalistas Profissionais 
de SSo Paulo. 

28 Independftncia tecnolbgica e colonialis- 

mo — Artigo de Joffo Antonio Zuffo 
sobre o esforpo brasileiro para atingir 
a auto-suficiencia tecnolbgica. 

37 Acerte as contas com o micro — Pro- 
grama de Maurfcio Costa Reis para o 
TK82-C. 

38 MAtodo Simplex na TI-59 — Progra- 
ma de Norman Gillmore. 

42 O computador na linguagem infantil — 
Reportagem sobre o que as crianpas 
pensam a respeito do computador. 

44 Comandando o relbgio e o gravador no 
CP-500 — Programa de Maurfcio Ba- 
duy para controlar, por software, o re- 
Ibgio e o motor do cassete do CP-500, 
usandoos comandos do BASIC Disco. 

52 Equipamentos — JP-01 . 

54 Rumo A Educapio informatizada — Ar- 
tigo de Suelena Porto Klein sobre as 
experidncias feitas com micros, na 
UFRGS, atravbs do seu Centro de Pro- 
cessamento de Dados. 

56 Apron da InglAs no computador — Pro- 
grama de Renato Degiovani para o NE- 
Z8000 com 16 Kb de RAM. 

58 TK85: novo pessoal no mercado. 

60 Cursos: anftlise de um fenbmeno — Re- 
portagem sobre os cursos livres de PD 
existentes no Brasil. 

70 Jo go da Forca Musical — Programa de 
Carlyle Macddo Junior e Edelvicio Sou- 
za Junior para o DGT-100. 

74 lnform4tica e Direito — Artigo de Ver- 
tino Machado sobre as aplicapOes do 
computador pessoal na atividade jurf- 
dica. 

78 Curso de Assembler — II. 

82 Pequenos pro gram as para o TK e NE — 

Programas de Paulo C6sar F. S. Cunha. 



84 Controle de investimentos em Letras 
de C&mbio — Programa de Josd Rai- 
mundo S. Sousa para a HP-97. 

85 CompuShop investe em informapao — 
Reportagem sobre a loja CompuShop, 
SP. 




Numero 19, abril 1983 

10 As linguagens de programapao — Arti- 
go sobre as linguagens de programap£o: 
tipos, caracterfsticas, vantagens, des 
vantagens, aplicapOes; e um resumo de 
algumas pouco conhecidas no Brasil. 

20 O estado E3 e as interruppoes — Arti- 
go de Orson Voerckel Galvao. 

24 Os programas tradutores — Artigo de 
Paulo Roberto Campos Ducap sobre os 
montadores, compiladores e interpreta- 
dores. 

28 Assembler — A primeira linguagem — 
Artigo de Amaury Moraes Jr. 

30 BASIC — Trfts faces da mesma lingua- 
gem - I — Artigo de Orson Voerckel 
Galvffo comparando as instrupbes BA- 
SIC do TRSr80 modelo III, Apple II e 
Sinclair ZX81 . 

34 Pascal — No ensino ou na ciAncia, um 
poderoso instrumento — Artigo de 
Maurfcio Costa Reis. 

36 COBOL — A primeira em aplicapdes 
comerciais — Artigo de Jos6 Luiz do 
Nascimento Silva. 

44 Livros — ‘The Giant Book of Compu- 
ter Software" of TAB Books Inc. 

46 FORTRAN — Fbrmulas matemdticas 
em programas — Artigo de Orson Voer- 
ckel GalvSo. 

50 MUMPS — Trabalhando complexos de 
dados — Artigo de Ivan Costa. 

54 LOGO — A matemdtica da tartaruga — 

Artigo de Dulce Madalena Autran von 
Pfuhl. 

62 LTD — Um mecanismo de entrada e 
crftica de dados — Artigo de Nilton do 
Valle Oliveira. 

66 Schumec faz mudanpas no seu M-85. 

68 Microfestival 83 — Reportagem sobre o 
Microfestival 83, Primeiro Encontro 
Brasileiro de Microinformdtica. 

72 Curso de Assembler — III. 

80 Compiladores e linguagens — Artigo de 
Michael Stanton. 

86 Computerland, uma expertfncia que 
deu certo — Reportagem sobre a loja 
Computerland, SP. 




Numero 20, maio 1983 



10 ProgramapSo Estruturada — Artigo de 
Monica Frbes Peixoto sobre a t6cnica 
que toma mais simples e fdcil a tarefa 
de programar e dicas para se fazer um 
programa em BASIC Estruturado. 

14 BASIC: tr6s faces da mesma linguagem 
— II — ContinuapSo do artigo de Orson 
Voerckel Galv5o. 

20 Conversao — Calculo de vigas conti- 
nues na HP-41CV. 

26 O som no sso de cada micro — Artigo e 
programa de Rudolfo Horner Jr. sobre 
um mdtodo simples e prdtico de pro- 
dupao de notas musicais para os corn- 
pat fveis com o Apple II. 

30 Drama por computador — Entrevista 
com o escritor Doc Comparato. 

34 Classificando dados na TI-59 — Progra- 
ma de Edmir Ximenes. 

36 Livros — "Eletrdnica Digital" de Her- 
bet Taub e Donald Shilling. 

38 AplicapSo de estatfstica no microcom- 
putador — Programa de Francisco Bo- 
ratto para o HP-85. 

42 As flexfveis membrias EPROM — Arti- 
go de Vera Vaitekunas sobre as carac- 
teristicas e os recursos das membrias 
RAM, ROM, PROM e EPROM e as t6c 
nicas de gravapSo destas ultimas. 

48 Forma, funpSo e economia — Artigo de 
Renato Degiovani sobre a importancia 
do Design no projeto de microcompu- 
tadores domgsticos e pessoais. 

56 A importancia do Design na Informiti- 
ca — Artigo de Valdir Soares. 

62 TK e NE no controle de cargas etotri- 
cas — Artigo de Jerre Palmeira Sales 

64 Equipamentos — CP-200. 

66 Cilculo de uma poligonal — Artigo e 
programa de Roberto B. Fonseca sobre 
uma aplicap?o para topografia, em BA- 
sic, utilizando uma calculadora Casio 
FX-702P. 

70 Renumere seus programas em BA- 
SIC — Artigo de Jos£ Ribeiro Pena Ne- 
to sobre a rotina RENUM. ideal para 
quern dispbe de micros da familia 
TRS-80 e precisa renumerar programas 
em BASIC. 

84 Exames medicos micro-programJveis — 
Artigo e programa de Paulo Roberto 
Yamana sobre os dois exemplos de co- 
mo o micro pode ser utilizado em clf- 
nicas mddicas para cdlculos de exames 
que envolvam fbrmulas matem£ticas. 

88 Curso de Assembler — IV. 

94 Ipanema Micro: al6m das expectativas 
— Reportagem sobre a loja Ipanema 
Micro, RJ. 
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Numero 21 ,junho 1983 

10 Controle seu orpamento no TK e NE — 
Programs de Renato Degiovani. 

14 O DMA: acesso direto A membria — Ar- 
tigo de Orson Voerckel GalvAo. 

18 O micro em contatos didAticos com o 
1? e 29 graus — Reportagem sobre a 
implantapSo de computadores no ensi- 
no de dois colAgios paulistas. 

24 CAIculo PERT em BASIC — Artigo e 
programs de Ademir Castilho Piqueira 
e Willian Noriaki Uemara sobre os cAI- 
culos de redes PERT em microcompu- 
t adores. 

30 HP-41C e BASIC: uma comparapao — 
Artigo de Hilton Felfcio dos Santos. 

34 Desenhe e brinque com o micro — Arti- 
go de Andrew Fairbain sobre a arte de 
desenhar figuras geometricas no micro. 

42 Viagem ao fundo do DGT-100 — Arti- 
go de Newton Duarte Braga Junior. 

44 Programs sua dieta (sem sacrifices) — 
Programs de Pedro Luiz Ribeiro para 
o Apple II. 

50 Equipamentos — Microengenho. 

52 Uma experiAncia em fazenda de gado 

(2) — Artigo de Willem A. Dutilh sobre 
os resultados obtidos com a utilizap&o 
do micro no controle dos negbcios de 
sua fazenda de gado. 

58 CP-300, novo membro da famflia Pro- 

I6gica. 

60 TV em monitor: como adapter — Arti- 
go de David Marco Risnik sobre como 
obter btimos resultados na adaptapAo 
de uma TV comum a um monitor de 
video. 

66 O. K. micro, vocA venceu! - Artigo de 
Ru? Cesar Torres sobre o problems da 
ressequenciapAo de programas em lin- 
guagem de mAquina no TK82-C. 

68 Datilografando no micro — Programs 
de I vo D ‘Aquino Neto para o D-8001 . 

72 Formato de gravapao em cassete — Ar- 
tigo de Daniel Augusto Martins sobre 
gravapbes em cassete nos compativeis 
com o TRS-80. 

78 Composipio da prepos unitArios — Ar- 
tigo e programs de JosA Eduardo Maluf 
de Carvalho para o TK82-C. 

84 Livros — "DicionArio de Telecomunica- 
pfies" de JoAo Victbrio Pareto Neto. 

85 Jogue dados no seu NE-Z8000 — Arti- 
go e programs de Newton Duarte Bra- 
ga Junior. 

86 Curso de Assembler — V. 

91 Metalurgia: CAIculo de Carga de Lami- 
napSo a Frio na HP-25 — Artigo de 
Eduardo Popas LeitAo. 

92 InformAtica em Recife: V Congresso — 
Reportagem sobre o V Congresso Re- 
gional de InformAtica, realizado entre 
8 e 15 de maio no Centro de Conven- 
pfles de Pernambuco. 

94 Microshop: pronta entrega e orientapio 

— Reportagem sobre a loja Microshop, 
SP. 




Numero 22, julho 1983 

10 Delimitadores de campos numAricos — 
Programas de Roberto Quito de Sant' 
Anna, um para o CP-500 e outro para 
o S-700, que facilitam a entrada de 
campos numAricos na tela. 

12 A animapao de figuras com alta resolu- 
pao — Artigo de Carlos Alberto Jahara 
sobre o recurso de alta resolupSo grAfi- 
ca nos compativeis com o Apple. 

14 A implementapAo das membrias — Ar- 
tigo de Orson Voerckel Galvao. 

22 Aeroporto 83 — Programs de Renato 
Degiovani para o TK82-C. 

26 Microprocessadores de 16 bits — Artigo 
de Antonio Rafael Dias Teixeira. 

32 Como automatizar sua programapSo — 
Artigo de JosA Rafael Sommerfeld. 

34 Equipamentos — QI-800. 

36 Escondendo o jogo no TK82-C — Arti- 
go de Ronaldo de Almeida Santos so- 
bre as tAcnicas e os truques para prote- 
ger programas. 

38 No mundo das impressoras — Reporta- 
gem sobre as caracterfsticas e aplica- 
p5es das impressoras e os problemas 
e pianos da industrla. 

46 Controle de estoque no PC-1500 — Ar- 
tigo de Newton Braga Junior. 

48 Livros — ''Crianpa tambAm faz progra- 
mas" de JosA AmArico M. da Silva. 

49 No ritmo do HP-75 — Programs de 
Paulo Salles MourAo. 

50 Efeito sonoro no TK e NE — Artigo 
de OctAvio Nogueira Neto. 

52 Tabela Price em BASIC — Programs de 
Ivan FalcAo de Domenico para o 
D-8002. 

54 Compilador FORTH para Z80 — Ar- 
tigo de Antonio Costa para os compati- 
veis com o TRS-80. 

60 Eletrdnica na HP-41 — Programs de Pe- 
dro Ricardo Drummond para todos 
aqueles que necessitam fazer, com fre- 
quence, as operapbes matemAticas 
obrigatbrias da eletrdnica. 

64 Um programs para radioam adores — 
Programs de Arnaldo Mefano. 

66 Pequenas membrias, grandes economias 
— Artigo de Renato Degiovani sobre 
como utilizar recursos de programapAo 
capazes de esticar membrias aparente 
mente pequenas, em micros TK82-C, 
NE-Z8000 e CP-200. 

72 Torre de Hanbi: uma solupao em BA- 
SIC — Artigo de JoAo Henrique A. 
Franco que mostra o princfpk) da so- 
lupAo recursive em programas BASIC, 
utilizando como exemplo o problems 
da Torre de Hanbi. 

74 Curso de Assembler — VI. 

78 Composipao de prepos unitArios — II — 
ContinuapSo do Programa de JosA 
Eduardo Maluf de Carvalho. 

82 NCC‘83: a vez dos perifAricos — Re- 

portagem sobre os perifAricos lanpados 
na National Computer Conference — 

» 

m 
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NCC dos Estados Unidos, de 16 a 19 
de maio no condado de Anaheim, Los 
Angeles. 

86 Kristian: uma pequena grande loja — 
Reportagem sobre a loja Kristian Ele- 
tronica Ltda., RJ. 
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ADVENTURES • 

tOGOS ANIMADOS ’ 
6809 . 

OPROCESSADORDOTRS COLOR 



Numero 23, agosto 1983 

10 Urn monitor Assembler para o TK82-C 
— Programa de Josd Carlos Niza. 

12 Vldeo-lmpressora, sem esc alas — Pro- 
grama de Heni Sauaia para os compatl- 
veis com o TRS-80, com uma pequena 
rotina para evitar "impressffo" dos es- 
papos em branco. 

16 Conversio — Professor Corujinha, no 
TK82-C, 



1 

JB 


□ 


1 

• 




r 



INSTITUTO DE TECNOLOGIA ORT 



CURSOSDE 

PROCESSAMENTO DE DADOS 



FORMAgAO DE PROGRAMADORES 
(COMPLETO) 

Durapao: 8 meses 

Horario: 2 a a 5 a feira de 19:00 as 22:00 hs 

MICROCOMPUT ADORES E A 
LINGUAGEM BASIC 

Durapio: 3 sem anas 

Horario: 2 a a 5 a feira de 1900 as 2200 hs 
Turmas de 15 alunos 



AMPLA UTILIZAQAO DO 
IBM-4341 E DO LABORATORY 
DE MICROCOMPUTADORES 



Visite o CPD-ORT - Diariamente apos 

1300 hs - R. Dona Mariana, 213-Botafogo 

Rio de Janeiro - Tels.: 226-3192 - 246-9423 




20 A famflia 6809 da Motorola — Artigo 
de Carlos Eduardo Tarrisse da Fontou- 
ra sobre a utilizapSo do microprocessa- 
dor 6809 e dos integrados 6883, 6847 
e 6821. 

28 T rad up So SimultSnoa — Programa de 
Ivo D'Aquino Neto para o D-8000. 

30 Mastarword : descubra a palavra — Pro- 
grama de Rubens Hungria de Lara para 
os compatlveis com o Apple. 

34 Anime-se... e tape bons jogos em BA- 
SIC - Artigo de Renato Sabbatini so- 
bre como desenvolver em BASIC jogos 
surpreendentemente rdpidos e com- 
plexos. 

38 Otimizapfo de membria em Assembler 
— Artigo de Elizabeth Simes Chaine. 

42 Equipamentos — CD-6809. 

44 O mundo fantbstico dos Adventures — 
Artigo de Fbbio Cavalcanti da Cunha. 

46 Equipamentos — COLOR 64. 

48 Aventuras na selva — Programa de Re- 
nato Degiovani para o TK82-C, NE- 
Z8000 e CP-200. 

54 Livros — "BASIC para micros pessoais" 
de Jorge da Cunha Pereira Filho. 

58 FORTH — Artigo de Antonio Costa so- 
bre a linguagem FORTH. 

56 A Loteria na HP-4 1C — Programa de 
Ricardo Oliveira Ramos. 

64 A implementapao da cor — Artigo de 
Thelma Vanderllnde sobre as dificulda- 
des para se implementar recursos grd- 
ficos coloridos em micros pessoais. 

68 Conhecendo melhor as strings — Artigo 
de Roberto Quito de Sant'Anna. 

70 O software no Brasil — Reportagem so- 
bre o seminario promovido pela SEI 
e PUC-RJ. 

74 Organize melhor seus programas em 
fita — Programa de Newton Duarte 
Braga Jr. 

80 Curso de Assembler — VII. 

86 Orientapio e cartao especial — Repor- 
tagem sobre o Centro Experimental de 
Informdtlca — CEI, da Servimec, SP. 



Numero 24, setembro 1983 

6 Ponha musica no seu TK — Programa 
de Cleuton de Melo Junior. 

12 Mbsica, maestro! — Programa de Ro- 
berto Quito de Sant'Anna. A canpSo 
Ain't she sweet exempllfica sub-rotinas 
em linguagem de mdquina que permi- 
tem aos programas rodarem tanto na 
versSo disco como cassete. 

14 Rastreando varibveis — Artigo de Ru- 
dolf Homer Junior que mostra como 




16 



18 

24 



28 



30 



32 

34 

38 

40 



42 



46 

48 

52 

56 



58 



64 

66 

68 

70 

74 



78 

84 

86 

92 

94 



listar as varidveis de programas em 
BASIC Applesoft. 

Dfgitos Verificadores — Artigo de Eral- 
do Souza Rocha que analisa os mdto- 
dos para o cdlculo de dfgitos verifica- 
dores, apresentando o algoritmo do 
mbdulo 11. 

Livros — Computes, Grilo! Computa- 
dor para todas as idades, de Rogbrio 
Costa Pereira. 

D6, Rb... Micro — Programa de Thelma 
V. T. da Fontoura que mostra os re- 
cursos musicais do TRS-80 Color Com- 
puter e sistemas compatlveis. 

Abrindo Espapo na Tela — Artigo de 
Renato Degiovani que ensina como 
aproveitar as duas ultimas linhas de Im- 
pressSo na tela, em micros tipo Sin- 
clair. 

O som (mais harmbnico) de seu Apple 
— Programa de Evandro Mascarenhas 
de Oliveira que posslbilita variar a fre- 
qufincia, o intervalo e a durapSo de 
notas musicais no micro. 

Conversio — O jogo Resta 1, no 
PC-1211. 

Jazz Cibernbtico — Programa de Mar- 
cus Brunette para a decodificapSo de 
acordes. 

Equipamentos — EGO. 

Simula um piano no seu teclado — Pro- 
grama de Newton Braga Junior para 
micros da linha TRS-80 Modelos I e 
III. 

Criptografia, uma arm a contra os pi- 
ratas? — I — Artigo de Candido Fon- 
seca da Silva sobre os sistemas cripto- 
graficos da era do computador. 

Acerte na lotece com o D-8000 — Pro- 
grama de Ivo D'Aquino Neto. 
Operapbes complexes em BASIC — 
Programa de Valdir Aguilera que per- 
mite operar com numeros complexos. 
O micro dt a largada! — Programa de 
Renato Degiovani com o jogo Fbrmula 
1. 

O erro de truncamento em BASIC — 
Artigo de Akeo Tanabe que explica as 
diferenpas entre a arltmbtica decimal e 
a aritmdtica bindria de ponto flutuante 
do BASIC. 

Aplicapbes em Saneamento Bdsico — 
Programas de Hilton Fellclo dos San- 
tos ( Cdlculo de diques de uma lagoa 
estabilizadora de esgotos, para a cal- 
culadora HP-41C) e Antonio Carlos 
Franco Zuccolo ( Dimensionamento de 
trechos de redes de distribuigSo de 
igua, para o micro Sharp PC-1 211). 
Parabdns no die certo — Programa de 
Luiz Gonzaga de Alvarenga para con- 
trole de datas de aniversdrios no CP-500. 
Flip: capture o edversd rio — Programa 
de Honbrio Lisboa Neto. Um jogo pa- 
ra micros da linha Sinclair. 
Equipamentos — O JR, da Sysdata. 

O si sterna de cbdigo de barras — Arti- 
go de Alwin Wilhelm Elbem. 

Minhas piores partidas de xadrez — 
Programa de L. C. Lobato que arma- 
zena essas partidas no prbprlo pro- 
grama, sob a forma de DATA. 

MICRO SISTEMAS. Ano II - Indice 
da revista, abrangendo os numeros 13 a 
24. 

Dices — De programapSo e operapJo de 
micros. 

Curso de Aaembler — VIII. 

Data provAvel de parto — Programa de 
Adauto Barbosa, de aplfcapffo mddica 
no CP-500. 

Computchb, uma loja trilegal! — Re- 
portagem sobre a loja gaucha Com- 
putche. ■ 

m 
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ANO III 

Ha 2 anos contribuindo com 
a informatica brasileira! 



Leia e assine: 

. ./Micro 




A PRIME! RA REVISTA BRASILEIRA DE MICROCOMPUTADORES 

Publicaqao da ATI Editora 
que agora Ihe oferece tambem 

Informatica & 

■ Administrate) 



( Se voce nao quiser cortar sua revista, tire uma xerox do cupom abaixo) 



nome 



empresa 



profissao 


cargo 


enderepo para remessa 





cidade cep estado 

assinatura de Micro Sistemas cr$ 7.000,00 

assinatura de M S ♦ Informatica & Administrap§o cr$ 12.500,00 

I 



Junte a estes dados, cheque nominal a : 

ATI Editora Ltda. 

Al. Gabriel Monteiro da Silva, 1229 
Sao Paulo - SP - Cep 01441 

(seu recibo sera enviado pelo correio) 
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n 
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Coloque o display de cabega para 
baixo. Faga o disquete tocar uma 
musica de Roberto Carlos para 
avisar que o programa jA esta 
carregado. Armazene quatro bytes 
em apenas um, colocando 64 Kb 
em Apenas 16 Kb de RAM. 

Invente um Interpretador unico 
para as linguagens BASIC, 

COBOL, Pascal e FORTH. 

Nao A preciso chegar a extremes, 
mas se voce tern pequenas rot in as 
e programas utilitArios realmente 
uteis tomando poeira em seus 
disquetes ou fitas cassetes, 
antecipe-se aos piratas e trate 
de divu IgA-1 os. Envie-os hoje 
mesmo para: 

RE DAO AO DA MICRO 
S /STEM AS - SEQAO D/CAS 
Rua Visconde Silva, 25 
BOTAFOGO - RIO DE 
JANEIRO - RJ 
CEP 22281 

Desta forma sua descoberta 
poderA ser util para muitos e 
muitos, ao inves de 
desmagnetizar-se com o tempo em 
suas fitas e disquetes... 



CP-500 



Personalize o sistema operacional 

A( vlo tres dicas para personalizar o Sistema Opera- 
cional do DOS 500/TRS DOS, aumentando, ao mesmo 
tempo, a sua funcionalidade : 

1? - Para nfo ter que consultar sempre o manual para 
decifrar as emgmiticas mensagens de erro do DOS 
500/TRS DOS, modifique o sistema operacional para que 
mostre a mensagem de erro completa, Para isto basta 
digitar, em DOS 500 Ativo/TRS DOS READY : 

PATCH *4 (ADD= 4E28 , FIND= 20,CHG=1 8)<ENTER > 
2? — Se voce nSo quer mais ser obngado a fornecer 
data/hora ao dar o RESET, digite : 

PATCH *0 (ADD= 4EA9,FIND=CA,CHG=C3)< ENTER> 
3? — Para que o diretbno do disco seja mostrado auto- 
maticamente a cada RESET, sob DOS 500 Ativo/TRS 
DOS READY, digite: 

AUTO DIR < ENTER > 

0 manual do DOS 500 ensina (no ultimo pardgrafo da 
pdgina 48) como reverter o sistema a condicao original, 
caso o usudno nio deseje mais as modifica^Oes realizadas 
pelos PATCHES. 



Roberto Quito de Sant'Anna — RJ 
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Arredondamento de valores decimals 

A representafao interna de valores num^ncos no 
computador leva, por vezes, a erros de aproxima^ao em 
algumas operasSes. Por exemplo, o resultado de PRINT 
(30.30 - 30) sera .299999, ao inv£s de .3, como sena 
esperado. Como na maioria das aplica^des com numeros 
decimals n5o sao necessanas mais do que duas casas apos 
o ponto, uma maneira simples de forsar o calculo de 
numeros de precisao dupla com duas casas decimals e, ao 
mesmo tempo, arredondar o resultado para o cent^simo 
mais prdximo, 6 converter um valor qualquer X da 
seguinte maneira: 

X # = INT (X # *100 # +0.5 # )/ 1 00 # 

O mecamsmo funciona assim: a multiplica^o por 
100 # desloca o ponto decimal duas casas para a direi- 
ta; a adi^o de 0.5 # e a aplica^fo de INT arredondam o 
resultado e eliminam os digitos nao desejados; e a divisao 
por 100 # retorna o ponto decimal a posi^ao original. 

Este m^todo tern sobre o PRINT USING a grande 
vantagem de arredondar o prdpno valor armazenado, e 
nSo apenas o valor impresso. Pode-se, ainda, obter qual- 
quer numero de casas decimals (respeitando-se, 6 claro, o 
numero de digitos com que o valor pode ser representa- 
do) simplesmente substituindo-se a constante 100 # da 
expressao pelo valor ION, onde N 6 o numero desejado 
de casas decimals. 

No caso de se usar valores de precisao simples, basta 
supnmir todos os simbolos # da fdrmula, ou substitui- 
los por !, ndo esquecendo, por^m, de que os valores de 
precisao simples sSo impressos com apenas seis algans- 
mos, embora sete sejam armazenados. 

Roberto Quito de Sant'Anna — RJ 












TK82 

Bode a tela para 



1651* f_ 0C4 ° 

16517 21 16 

16518 81 21 

16521 CO 
} 6 c!% 06 00 



16525 
16522 09 

16528 Cl 

16529 10 
16531 C9 



10 F6 
C9 



16532 E5 






16533 C5 

16534 06 IF 



16536 93 

16537 23 

16538 f 

16539 28 

16540 71 

16541 ?2 

16542 1® 

1 l65 *c M 
16545 53 

1 l 654 S r« 

\ 16547 5 



10 F9 

77 

Cl 

El 

C9 



C J 

a esquerda 

CD HL , ( 16396 ) 
INC HL 

L0 0C ',||32 
CALL 16532 

PUSH BC 

LD B ’? nr 
ADD HL,BC 

POP BC 
03NZ 16521 
RCT 

PUSH HL 
PUSH BC 
LD 8 » \ 

LD 4 9 (HL) 

INC H Vui ^ 
ld c,(h l ) 

DEC HL 

ld (HL ) #5 

INC H V*cT7 
D 3 NZ 16537 

ld (hO » a 

POP BC 
POP HL 
RET 



USR 1651 ^ p 0 bson Gon*H_ 



TK82-C 






Rode a tela para baixo 


16514 


a 16545 


32 bytes reservados 


16546 


2A 


0C 


40 


LD HL, (16396) 


16549 


01 


B6 


02 


LD BC , 694 


16552 


09 






ADD HL ,BC 


16553 


11 


82 


40 


LD DE, 16514 


16556 


01 


20 


00 


LD BC , 32 


16559 


ED 


B0 




LD IR 


16561 


01 


D6 


02 


LD BC , 726 


16564 


2A 


0C 


40 


LD HL, (16396) 


16567 


09 






ADD HL ,BC 


16560 


54 






LD D,H 


16569 


5D 






LD E , L 


16570 


01 


B5 


02 


LD BC , 693 


16573 


2A 


0C 


40 


LD HL, (16396) 


16576 


09 






ADD HL ,BC 


16577 


ED 


B8 




LDDR 


16579 


21 


02 


40 


LD HL, 16514 


165B2 


ED 


5B 


0C 40 


LD DE, (16396) 


16506 


13 






INC DE 


16587 


01 


20 


00 


CM 

to 

•fc 

(_> 

CD 

O 


16590 


ED 


B0 




LD IR 


16592 


C9 






RET 


RAND 


USR 


16546 












Robson Conies Vi lei a — PE 



TK82-C 1 




Rode a tela para cima 


16514 


a 16545 


32 bytes reservados 


16546 


2A 


0C 


40 


LD HL, (16396) 


16549 


23 






INC HL 


16550 


11 


02 


40 


LD DE, 16514 


16553 


01 


20 


00 


LD BC , 32 


16556 


ED 


B 0 




LD IR 


16558 


2A 


0C 


40 


LD HL, (16396) 


16561 


23 






INC HL 


16562 


01 


21 


00 


LD BC , 33 


16565 


09 






ADD HL ,BC 


16566 


ED 


5B 


0C 40 


LD DE, (16396) 


16570 


13 






INC DE 


16571 


01 


B5 


02 


LD BC , 69 3 


16574 


ED 


B0 




LD IR 


16576 


2A 


0C 


40 


LD HL, (16396) 


16579 


23 






INC HL 


16580 


01 


B5 


02 


LD BC , 693 


16583 


09 






ADD HL ,BC 


16504 


EB 






EX DE ,HL 


16585 


21 


82 


40 


LD HL, 16514 


16588 


01 


20 


00 


LD BC , 32 


16591 


ED 


B 0 




LD IR 


16593 


C9 






RET 


RAND 


USR 


16546 
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^TK82^C 

■Rodeatelapara a c 



16514 2 A 0C 4K 

® g 2116 

C 01 2E 00 

® a - 

\ l 652 o M 
1 1 6529 „ 7E 
\ l 653 ? 93 

' \ 16 3 H 2B 

\ 1 6 653 * 10 F9 

• \ 16537 Cl 

l\«V*3 I* E6 

\ 16645 59 

1 RANO USR 16* 1 * 



a direita 1 

UD HL.(16*^ 
INC HL 
LD BC.5665 
PUSH BC 
LD B5 »3l 
ADD HL,B c 
LD B » \ 

LD C,(H5) 

DEC HI- 
LO a»( hU 
IN5 HL 

ld (hl) 

DEC H V ft S29 
D3NZ 1652^ 

LD (hO* C 
POP BC 
PUSH B5 
LD B,0 
ADD HL » 05 

POP B ^c91 
D3NZ 16521 

RET 



PobsonGomes _ 

















Curso de 

Assembler — VIII 









N esta I 1920 daremos contmuidade a descn^o das ms- 
tru 9 oes que compdem o grupo de carga de 16 bits: 

10 — Move registrador indexador IX para memoria 
Formato: LD (nn), IX 

Operaqdo: Move o conteudo do registrador indexador IX de 
1 6 bits para a memoria a partir da posi^Io indicada por nn. 

Codigo objeto: 



LD ( nn ) , IX 



1 


1 


r" 

0 


i i 

i i 


1 


0 

1 


i 


0 


0 


r— 

i 


0 0 


T~ 

0 


T“ 

i 

1 


0 






r— 




J— 








.1 










Z_ 














t— 










1 





, 





EXEHPLO : 



Descrigao: O conteudo dos 8 bits de baixa ordem do regis- 
trador indexador IX 6 carregado no endere 90 de memoria dado 
por nn e o conteudo dos 8 bits mais significativos do registra- 
dor indexador IX 6 carregado na posi^o de memona nn+1 . 

LD ( 30BAH ) , I X (30BAH)^ IX^ 

(30BBH)<* IX H 

Ciclos de maquina: (M): 6 

States (T): 20 ( 4 , 4 , 3 , 3 , 3 , 3 ) 

Flags afetadas: Nenhuma 

Como exemplo, se o conteudo do registrador indexador IX 
& 4158H, apos a execu 9 §o da instru 9 ao LD (4000H), IX, o en- 
dere 90 de memona 4000H contera o byte 58H e o endere 90 
seguinte 400 1H contera o byte 41H. 

1 1 — Move registrador indexador IY para memoria 

Formato: LD (nn), IY 

Opera^ao: Move o conteudo do registrador indexador IY 
de 1 6 bits para a memdria a partir da posi 9 ao indicada por nn. 

Cddigo objeto: 



LD ( 7F 1 0H ) , IX 





i 


r— 

1 


— 

0 


1 


i 


— 

1 


— 

0 


1 


0 


r~ 

0 


1 


r— 

0 


t - ■ 

0 


1—1 

0 


1 


0 


0 


0 


l““ 

0 


1 


0 


1—1 

0 


r— i 

0 


0 


0 


i 


1 


r— 

i 


f— 1 
1 


r— i 

i 




1 


1 



► DD 
>22 
>10 
>7F 



LD (nn),IY 



1 


r— 

1 


T 


— i — 

i i 


1 


1 

0 1 


0 


0 


r™ 

i 


o 

o 


r-i 

0 


1 0 
























* 










I— 1 














L_J 
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EXEHPLO: 



LD SP,IX 



SP H « 1 X H 



LD ( 3COOH ) , I Y 

=0" 



1 


1 


1 


— 

1 


1 

1 a 


T~ 

1 


n 

0 


i 


0 


0 


1 


t“ 

0 


0 


0 


f 

i 


0 


0 


0 


0 


0 

i_ 


0 


0 


0 

» 


0 


0 


0 


1 


1 


1 


1 


0 
j 


0 



>FD 

>22 

>00 

>3C 



Descriqdo: 0 conteudo dos 8 bits de baixa ordem do regis- 
trador indexador rY e carregado no endere^o de memdria dado 
por nn e o conteudo dos 8 bits mais significativos do registra- 
dor indexador IY 6 carregado na posisao de memoria nn+1. 



LD ( 70F 3H ) , I Y (70F3H)^ IY l 

(70F4H)<* IY u 

H 

Ciclos de mdquina (M): 6 
States (T): 20(4,4,3,3,3,3) 

Flags afetadas: Nenhuma 

Urn exemplo: se o conteudo do registrador indexador rY i 
6000H, apos a execu^ao da mstru^ao LD (402DH), rY, o en- 
dere^o 402DH de memdria contera o byte 00H, enquanto o 
endere^o seguinte, 402EH, contera o byte 60H. 



1 2 — Move par de registradores HL para Stack Pointer 
Formato: LD SP,HL 

Operaqdo: Move o conteudo do par de registradores HL pa- 
ra o registrador SP de 16 bits. 

Cddigo objeto: 



LD SP , HL 



1 1,1 1 1 001 



> F 9 



Descriqdo: O conteudo do par de registradores HL de 16 
bits i transfendo para o registrador STACK POINTER (SP) 
de 16 bits. 



LD SP , HL 




Ciclos de mdquina (M): 1 

States (T ): 6 

Flags afetadas: Nenhuma 

Como exemplo, se o par de registradores HL cont^m 4400H, 
ap6s a instnnjao LD SP,HL, o registrador SP tamWm conterd o 
valor 4400H. 



Ciclos de mdquina (M): 2 
States (T ): 10(4,6) 

Flags afetadas: Nenhuma 

Veja o exemplo. Se o registrador IX contdm o valor 
7FFFH, apds a mstru^o LD SPJX o registrador SP tambdm 
conterd o valor 7FFFH. 

14 — Move registrador indexador IY para STACK POINTER 
Formato: LD SPJY 

Operaqdo: Move o conteudo do registrador indexador IY 
para o registrador SP de 16 bits. 

Cddigo objeto: 





LD 


SP, 


IY 






1 


i 

1 1 


1 1 


1 

1 


0 


1 


1 


1 1 


1 1 


0 


0 


1 



> F0 
>F9 



Descriqdo: O conteudo do registrador mdexador IY de 16 
bits d transfendo para o registrador STACK POINTER (SP) de 
16 bits. 



LD SP , I Y SP H <* IY h 

SP L^ IY L 



Ciclos de mdquina (M): 2 
States (T): 10(4,6) 

Flags afetadas: Nenhuma 

Como exemplo, se o registrador IY contdm o valor 9C01H, 
ap6s a mstru^o LD SP,IY o registrador SP tambem conterd o 
valor 9C01H. 

1 5 — Move par de registradores para o STACK POINTER 
Formato: PUSH qq 

Operaqao: O conteudo do par de registradores qq d coloca- 
do na memdria de trabalho do microprocessador, chamada 
STACK. 

Cddigo objeto: 



PUSH qq 



1 1 q q 0 10 1 



00 


para 


qq = par 


de 


registradores 


BC 


01 


para 


qq = par 


de 


registradores 


DE 


10 


para 


qq = par 


de 


registradores 


HL 


11 


para 


qq = par 


de 


registradores 


AF 



13 - Move registrador indexador IX para STACK POINTER 
Formato: LD SP,IX 

Operaqdo: Move o conteudo do registrador indexador IX 
para o registrador SP de 16 bits. 

Codigo objeto: 



> DD 
>F9 



LD SP,IX 

i i i i i i i 

11011101 
—I — I — I — I — I — I — I— 

111110 0 1 
I I I I I 1 



Descriqdo: O conteudo do registrador indexador IX de 16 
bits e transfendo para o registrador STACK POINTER (SP) de 
16 bits. 



EXEMPLO: 



PUSH HL 



1110 Oil 0 1 



>E5 



Descriqdo: O conteudo do par de registradores qq 6 coloca- 
do na memdria de trabalho do microprocessador. Esta mem6- 
na e chamada STACK e opera na estrutura LIFO ( last-in , first- 
out), isto 6, o ultimo valor colocado no STACK serd sempre o 
pnmeiro a sair; o penultimo valor colocado no STACK serd o 
segundo a sair;e assim sucessivamente. 

Podemos entender melhor a opera^o desta memdria se fi- w 
zermos uma analogia com uma pilha de caixas. A ultima caixa^ 
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CURSO DE ASSEMBLER - VIII 



colocada na pilha sera sempre a primeira a ser retirada e se qui- 
sermos retirar uma caixa que se encontra no meio da pilha te- 
remos que retirar todas as caixas que se encontram acima da 
caixa desejada. 

O registrador STACK POINTER de 16 bits contem o ende- 
re^o corrente do topo do STACK. Uma instru<;ao de PUSH pri- 
meiro decrementa o endere^o contido no STACK POINTER 
e move o conteudo do registrador de alta ordem do par de regis- 
tradores especificado para o endere 9 o apontado pelo STACK 
POINTER. Em seguida, decrementa o registrador SP nova- 
mente e move o conteudo do registrador de baixa ordem do 
par de registradores especificado para o endere^o apontado 
pelo STACK POINTER. 

EXEMPLO ; PUSH DE (SP-1)-^ D 

<SP-2)«* E 

Ciclos de maquina (M): 3 

States (T): 1 1(5, 3 ,3) 

Flaps afetadas: Nenhuma 

Como exemplo, se o par de registradores AF contem 2233H 
e o STACK POINTER contem F545H, apos a mstru^ao PUSH 
AF, o endere 90 de memdria F544H contera o byte 22H, o en- 
dere 90 de memdria F543H conterd o byte 33H e o STACK 
POINTER contera F543H. Agora o valor 2233H esta contido 
no par de registradores AF e no topo do STACK. 

16 - Move registrador indexador IX para o STACK 

Formato: PUSH IX 

Operaqdo: O conteudo do registrador indexador IX de 16 
bits e colocado no STACK. 

Cddigo objeto: 



Cddigo objeto: 

PUSH IY 

FD 
E 5 

Descrigdo: 0 conteudo do registrador indexador IY 6 colo- 
cado no STACK. Esta instru 9 ao primeiro decrementa o 
STACK POINTER e move o byte mais significative do registra- 
dor IY para o endere 90 de memoria especificado por SP. para 
entao decrementar novamente o STACK POINTER e mover o 
byte menos sigmficativo do registrador IY para o endere 9 o de 
memoria especificado pelo STACK POINTER. 

EXEMPLO: PUSH IY (SP-1)4 IY.. 

H 

(SP-2) 4 IY l 

Ciclos de maquina (M):4 
States (T): 15(4,5,3,3) 

Como exemplo, se o registrador indexador IY contem 
90F5H e o STACK POINTER contem 7000H, ap6s a execu 9 ao 
da instru 9 ^o PUSH IY o endere 90 de mem6na 6FFFH contera 
o byte 90H, o endere 9 o de memoria 6FFEH contera o byte 
F5H e o STACK POINTER contera 6FFEH. 

18 - Move STACK para par de registradores 
Formato: PoP qq 

Operagao: O conteudo do topo do STACK 6 colocado no 
par de registradores qq. 

Codigo objeto: 



PoP qq 





PUSH IX 

— 1 ! 1 1 1 1 1 

110 1110 1 ► DD 

— * — i — i — l — I — I — f— 

1110 0 10 1 ► E5 



Descrigdo: 0 conteudo do registrador indexador IX 6 colo- 
cado no STACK. Esta instru 9 ao primeiro decrementa o 
STACK POINTER e move o byte mais sigmficativo do registra- 
dor IX para o endere 90 de memona especificado por SP, para, 
em seguida, decrementar novamente o STACK POINTER e 
mover o byte menos sigmficativo do registrador IX para o en- 
dere 90 de memoria especificado por SP. 0 STACK e utilizado 
para o armazenamento temporano do conteudo de um regis- 
trador. 

EXEMPLO: PUSH IX (SP-1)<4 IX.. 

H 



00 


para 


qq = 


par 


de 


reg i stradores 


BC 


01 


para 


qq = 


par 


de 


registradores 


DE 


10 


para 


qq = 


par 


de 


registradores 


HL 


11 


pa r a 


qq = 


par 


de 


registradores 


AF 


EXEMPLO 


• 
















Pop 


BC 










E 


jjoj 


ojo 


M4I — ► 


Cl 



Descrigdo: Esta instru 9 ao coloca no registrador de baixa 
ordem do par de registradores qq o conteudo da posi 9 ao de 
memdria apontada pelo STACK POINTER, incrementa o con- 
teudo do registrador SP, move o conteudo da posi 9 ao de me- 
mona apontada pelo STACK POINTER para o registrador de 
alta ordem do par de registradores qq e incrementa novamente 
o conteudo do STACK POINTER. 

E<* (SP) 



( SP-2 ) 



EXEMPLO 



PoP DE 



Ciclos de maquina (M): 4 
States a): 15(4,5,3,3) 

Um exemplo: se o registrador indexador IX contem 3C00H 
e o STACK POINTER contem 7540H, apos a execu 9 ao da 
instru 9 ao PUSH IX o endere 90 de memdria 753FH conterd o 
byte 3CH, o endere 90 de memdria 753EH contera o byte 00H 
e o STACK POINTER contera 753EH. 

17 - Move registrador indexador IY para o STACK 
Formato: PUSH IY 

Operagdo: 0 conteudo do registrador indexador IY de 16 
bits e colocado no STACK. 



Ciclos de maquina (M): 3 
States (T): 10(4,3,3) 

Flags afetadas: Nenhuma 

Como exemplo, se o STACK POINTER contdm 9000H, 
a loca 9 §o de memdria 9000H contem 55H e a loca 9 ao de me- 
mdna 900 1H contem 01H, apos a execu 9 ao da instru 9 ao 
PoP HL o par de registradores HL contera o valor 0155H e o 
conteudo do STACK POINTER sera 9002H. 

19 — Move STACK para registrador indexador IX 

Formato: PoP IX 
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Operaqdo: O conteudo do topo do STACK £ colocado no 
registrador mdexador IX de 16 bits. 



>> DD 
> El 



Descriqdo: Esta mstrupSo coloca nos 8bitsmenossignificati- 
vos do registrador mdexador IX de 1 6 bits o conteudo de posipao 
de memdria apontada pelo STACK POINTER, mcrementa o 
conteudo do registrador SP, moye o conteudo da posipao de 
memona apontada pelo STACK POINTER para os oito bits 
mais significativos do registrador mdexador IX e mcrementa 
novamente o conteudo do STACK POINTER. 

EXEM PLO: PoP IX IX^ < SP > 

IX u 4 (SP+1) 

H 

Ciclos de mdquina (M): 4 
States (T ): 14(4,4,3,3) 

Flaps afetadas: Nenhuma 

Como exemplo, se o STACK POINTER cont£m a locapao 
de memdna 7000H, a locapao de memona 7000H contem 
9AH e a locapao de memdria 700 1H contem 35H, apos a 
execupao da instrupao PoP IX o registrador IX conterd o valor 
359AH e o conteudo do STACK POINTER sera 7002H. 

20 — Move STACK para registrador indexador IY 

Formato: PoP IY 

Operaqdo: O conteudo do topo do STACK 6 colocado no 
registrador mdexador IY de 16 bits. 



PoP IX 



1 


1 


0 


1 


— 

1 


1 


0 


— 

1 


1 


1 


1 


0 


0 


0 


0 


1 



Cddipo objeto: 



> FD 



>E1 

Descriqdo: Esta instrupao coloca nos oito bits menos signifi- 
cativos do registrador mdexador IY de 1 6 bits o conteudo da po- 
sipfo de memdna apontada pelo STACK POINTER, mcremen- 
ta o conteudo do STACK POINTER, move o conteudo da po- 
sipao de memona apontada pelo STACK POINTER para os 
oito bits mais significativos do registrador mdexador IY e 
mcrementa o STACK POINTER. 

EXEMPLO: PoP IY 



Ciclos de mdquina (M): 4 
States (T): 14(4,4,3,3) 

Flaps afetadas: Nenhuma 
Como exemplo, se o STACK POINTER contem 9000H e a 
posipao de memona 9000H contem 7FH e a posipfo segumte 
47H, apos a execupao da instrupio PoP IY o registrador IY 
conterd o valor 477FH e o conteudo do STACK POINTER se- 
ra 9002H. ■ 



Amaury Correa de Almeida Moraes Junior A formado pelo curso de 
AnAlise de Sistemas da FASP. tendo feito di versos cursos de aperfeigoa- 
mento nas Areas de Eletrdnica Digital e Microprocessadores. 

Amaury trabalha como Analista de Sistemas na PROD ESP, na Area de 
mini /microcomputadores , e presta consultoria a empresas para a implan 
tagSo de sistemas de microcomputadores. 



IY l <* (SP) 

I Y 4 (SP + 1) 

H 



PoP IY 

— i — i — i — i i i 

I 1 1 1 1 1 0 1 
— ! 1 ►— t— I t—t— 

1 1 1 0 0 0 0 1 

I I I I I 1 i 



Elgin Lady 



Velocidade de impressao 100 cps 
132colunasa lOcpi 



A impressora Elgin Lady e o novo padrUo para aplicapoes profissionais 
em seu computador pessoal ou microcomputador. 

Com velocidade de 100 CPS, os caracteres impressos em matriz de pontos 
no formato 9x7, sdo de alta resolucao. Com capacidade de 132 colunas, 
comporta at6 264 caracteres/linha. 

Atrav6s de uma tecla, em modo conversacional, 18 funpoes sao disponlveis 

para completa definipSo do formato de impressSo, 

entre as quais 1 1 funpoes podem ser programadas via software. 

Com o modulo Elgingraph, a impressora Elgin Lady 
constitui a melhor escolha para seu microcomputador, 
em aplicapoes que requerem total flexibilidade gr£fica 
atrav^s de caracteres semi-gr^ficos ou funpoes grSficas 
com enderepamento a nlvel de agulhas. 

As interfaces, intercambi^veis a nivel de operador, 
capacitam a Elgin Lady a uma serie de diferentes conecpoes 
com a maioria dos microcomputadores 
e sistemas disponiveis no mercado. 



1 




Uma Divisdo de ELGIN MAQUINAS S A 
Rua Barfto de Campinas. 305 
CEP 01201 -Tel 220-1611 
Telex (011)37805 ELGI BR 
Fabrics em Mogi das Cruzes SP. 

Filiada 4 ABICOMP 




Conhega a nova Elgin Lady em 



S4o Paulo: MICROSHOP Fone 282-2105 • COMPUTERLAND • Fone 258-2954 • COMPUSHOP Fone 212 9004 
SERVIMEC Fone 222 1511 • IMAREs Fone 881-0200 Campinas: COMPUTIQUE - Fone 32-3810 
Rio de Janeiro: COMPUTIOUE Fone 267 1093 • CLAPPY Fone 253-7930 • TECNITRON Fone 233 9670 
Porto Alegre: INFORMATION • Fone 21-4189 • COMPUMIDIA Fone 22 5061 
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• Tendo adquirido um compu- 
tador de bolso SHARP PC-1 500, 
teria interesse am me correspon- 
der com usuArios deste micro. 
Diiponho de alguns programas de- 
senvolvidos para a 3 re a financeira, 
bem como de duplicatas de seus 
manuais, inclusive o "Service Ma- 
nual". Antonio Cesar de SA Lei- 
tfo, Rua Wanderley de Pinho, 
644/1001, Itaigara, CEP 40000, 
Salvador, Bahia. * 

• Gostaria de entrar em contato 
com usuArios do micro DGT-100 
para troca, compra e venda de 
programas, assim como idAias e di- 
ces. Caso haja algum clube deste 
micro ou compativeis favor escre- 
ver ou telefonar para Rodirgo Ce- 
sar Santos, Rua Pedro Dutra, 212, 
JaraguA, Belo Horizonte, CEP 
30000, MG, tel.: (031 ) 443-2096. 

• Gostaria de trocar idAias. expe- 
riences e principalmente jogos 
com pessoas que possuam o mi- 
crocomputador CP -200 ou simila- 
res. Entre em contato com Jofo 
Bosco de Castro na Rua Licinio 
Leite Machado, 59, Bairro Santa- 
na, S5o JosA dos Campos. Sfo 
Paulo ou pelo tel.: 22-0420. 



• Sou estudante universitArio na 
Area de Engenharia ElAtrica (op- 
gfo eletrSnica). Teria o maior 
prazer em receber informagSes 
nesta Area e/ou ofertas de material 
tAcnlco e didAtico. Humberto de 
Castro Jr. Travessa das Mercedes, 
324, Sfo BrAz, BelAm, PA, CEP 
66000. 

• Meu nome A Henrique Avila 
Vienna, tenho dez anos e gosta- 
ria de me corresponder com pes- 
soas que tenham micro computa- 
dores Apple II, ou compativeis, 
para troca de idAias, informagSes, 
programas e jogos. Tenho um Mi- 
croengenho e gosto muito de fa- 
zer programas e jogos. Estou con- 
vidando as pessoas que quiserem 
a enviarem suas cartas para: Hen- 
rique Avila Vianna, Rua Armando 
G. Sica, 55, Pelotas, Rio Grande 
do Sul, CEP 96100. 

• Desejo entrar em contato com 
pessoas que possuam um DGR- 
100 para trocar idAias e programas. 
Tenho muitos programas em BA- 
SIC e linguagem de mAquina. Es- 
crever para J. F. da Silva F., Rua 
General Osbrio, 1031, salas 106 e 
107, CEP 13100, Campinas, tel.: 
(0192) 86537, SP. 




• it i 



»HK 



MACR0ATENDIMENT0. 

DUAS GRANGES 
ESPECIALIDADES da 
C0MPUCITY. 



, ^ i atrndido diretamente pelos 

Na Compucity voce e ^^d £ computadore s: os 

profissionais que maw ent 

Analistas de Sistemas. com demonstrap&es 

. Sio ^' c qU 0 Vq U °p^en<“ quc me ' h °' 

£ wSmcessidades e de! ^n^cntos 

Visite a Compuaty. Kprimentoa. voce 

do mercado e uma comple'aliW'O de 

““ 6 ctmp«ci<y. O ..endimento que nio «s<i no 
programa. 



Compucity 



Rua Tome de Souza, 882 - Savassi. Fone: 226 6336. BH - MG. 




SOFTWARE 

• Vendo uma fita com os se- 
guintes programas: Labirinto, 

Monstro das Trevas, Fugitivo, De- 
molidor, Agenda e Orpamento 
DomAstico, para os seguintes mi- 
cros: TK82-C, TK85, CP-200, etc, 
pelo prepo de Cr$ 10 mil. Tratar 
com Vicente Quartieri A Rua IpA, 
110, Sfo Vicente, Sfo Paulo ou 
pelo tel.: 67-4805. 
e Vendo ou troco programas de 
jogos para TK82-C e TK85. Tra- 
tar com Edson, Rua Guariba, 54, 
Vila Ema, Sfo Paulo, tel.: (Oil) 
918-0998 (com Ruth). 

e Troco programas (principal- 
mente jogos) para micros compa- 
tfveis com o DGT-100. Renato 
Nogueira Mendes, Rua Mosela, 
436, Mosela, Petrbpolis, RJ, tel.: 
(0242) 42-2255. 

EQUIPAMENTOS 

e Compro esquema de qualquer 
microcomputador com base no 
microprocessador Z80 (TK82-C, 
NE-Z8000, CP-200, ZX81, etc), 
se possivel com desenho de place 
e com indicapfo das pepas. Tra- 
tar com Marcos Ceciliato, Cx. Pos- 
tal 45, CEP 13330, Indaiatuba, 
Sfo Paulo. 

e Vendo TRS-80 Modelo I, 48K, 
interface, dois drives 5+1/4, ma- 
nuais, diversos software, disketes, 
tudo com pouqufssimo uso, pela 
melhor oferta. Piso de Cr$ 800. 
mil. Tratar com Osni, tel.: (Oil) 
246-3133. 

e Vendo computador DGT-100,. 
com monitor verde fosforizado, 
interface para atA 4 disk-drives e 
pare impressora paralela. Possui 
um disk-drive com 184 Kbytes, 
48 Kbytes de RAM e 20 Kbytes 
de ROM. Tratar com Vitor, apbs 
as 19:00h, pelo tel.: (Oil) 825- 
0055. 

e Vendo ou troco por EPROM 
PROGRAMMER: 2K serial inter- 
face Buffer Board for MX- 100 e 
Parallel Interface Board/Cable for 
Aplle ll/MX-80. 

e Vendo impressor PC-100C pa- 
ra calculadora Texas TI-58 e Tl- 
59. Prepo de Cr$ 220 mil. Acom- 
panha bolsa de couro e trAs rolos 
de papel. Estado de conservagfo: 
NOVA (na caixa). Tratar com 
Douglas Werner Heckmann, Rua 
Tuiutf, 35, Rio do Sul, SC, 89.1 60 
ou pelo tel.: (0478) 22-0907 (fins 
de semana). 

e Troco microcomputador de 
bolso (novo), 2,5 Kbytes de me- 
mbria, com impressora, interface 
para cassete, 130 programas, ma- 
nual de instrupfo e de curso BA- 
SIC, (PC 1211 RP) da Sharp, por 
um microcomputador D 8001 da 
Dismac. Tratar com Vitor pelo 
tel.: (0192) 51-9755, ramal 5685, 
Campinas, Sfo Paulo. 



e Vendo um CP-500 com 48K 
bytes, um drive para disquetes de 
5 1/4" e com unidade sonora. O 
microcomputador ainda esta na 
garantia. Recados para Oswaldo 
pelo telefone: (Oil) 264-2497. 

e Gostaria de obter cdpias de 
manuais dos seguintes micros: Sin- 
clair ZX81 , VIC 20, Atari 400, 
Atom e Oric-1 e PC-1 500. Se a cb- 
pia do manual nfo for possivel, 
pelo menos o mapeamento de me- 
mbria. Oduvaldo Barroso da Silva, 
Rua Prof. Valadares, 220/201, 
CEP 20561, Grajau, RJ. 

e Troco CP-500 de 48 Kbytes e 
dois drives por TRS-80 III com 
idAntica configuragfo. S6 troco 
em perfeito estado, pago a dife- 
renga a combiner. Cartas para 
Paulo Fernandes, Rua Emiliano 
Pemeta, 837/802, Curitiba, Para- 
n6. 

e Vendo um microcomputador 
de bolso Casio FX702/801, com 
interface, printer e fitas para jo- 
gos. Tratar com Rubens, tel.: (01 1) 
445-4962 ou 445-1940. 

e Vendo TK82-C com expansfo 
de 16K de RAM, com apenas tres 
meses de uso, por Cr$ 100 mil. 
Acompanha dois jogos. Tratar 
com JosA Tavares na Av. Vicente 
de Carvalho, 92/124, Santos, Sfo 
Paulo, CEP 11100. 

• Vendo Calculadora Hewlett- 
Packard 41 C, por Cr$ 190 mil. 
Tratar com Arlindo Martins Filho, 
Rua Esmeraldino Bandeira, 393, 
Aflitos, Recife, Pernambuco, 
50.000. tel.: (191 ) 2224925. 

DIVERSOS 

• Fago adaptagfies do teclado 
original do TK82-C para teclas de 
borracha. InformagSes com Tuca 
pelo telefone: (Oil) 864-8479, 
Sfo Paulo. 

• Preciso de manual ou xerox 
do manual do Disk-Basic e do 
DOS do NEWDOS-80, versfo 2.0 
para o TRS-80 Modelo I. Quern ti- 
ver, por favor, entrar em contato 
com Beth (711-7844) ou Eraldo 
(719-9265) A noite, Sfo Paulo. 

• Compro os numeros 1, 2 e 3 
de MICRO SISTEMAS. ClAudio 
MArcio, tel.: (0245) 224016 (A 
noite). Nova Friburgo, RJ. 

• Compro os numeros 2, 6, 7 e 9 
de MICRO SISTEMAS. Tratar 
com Edson Miguel, Rua Benjamin 
Constant, 490, 13300, Itu, tel.: 
482-0998, SP. 

• Oferece-se palestra sobre mi- 
crocomputador com slides. Infor- 
magSes e inscrigSes pela Caixa 
Postal 7459, CEP 0100, Sao Paulo. 

• Vende-se cadastro de usuArio 
de computador. Escreva para Cx. 
Postal 7459, CEP 01000, SSo Pau- 
lo. 
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Duas marcas brasileiras 




A partir de hoje estarei em sua memdria todos os 
ditis, no trabulho , em casa, no Inzer. Agora somos 
dois. en e voce. Sou Jlexivel e se voce desejar , 
pode me utilizar com todos os K Bytes de potencia. 
Quando estivermos juntos, ndo ficard somente uma 
vaga lembranga, mas sim, muitos bytes de memdria. 
Voce pode me encontrar em todas as modahdades, 
Simples ou dupla face , S ou 5 1/4 , 

sou compativel com todos os tipos de Drives 
e minim certificagao e garantida de zero erros. 
Agora voce pode me adquirir em qualquer ponto 
do Brasil, atraves da Rede Nat ional de 
Rcpresentantes e Revendedores. 















Diskettes 



nun uni' 

' no Sona Frtini a dr W< 



Adm. e Venda.y: Rua Lord Cot 
Filial RJ: Rua Senador Dantas, - zz. a 
Filial BH Rua Sclenio 204 sola 202 - Belo Horizonte- MG - Tel.: (031) 334.47 OX 



um produto. 

1i’ W J 

Filiada a 

ANFORSAI 



213 
74X3 Centro - 



RJ 



Um pro grama que demonstra, de forma simples, a util id ade de micros 
na medicina: Ca/cu/o da Data Provdve! de Parto. 



Data provavel 
de parto 

Adauto Barbosa 



ma grande verdade conhecida de todos os medicos e 
o dito a clinica 4 soberana. Sabemos que nunca nada 
substituira a boa anamnese e o bom exame fisico. 
Entretanto, tamWm 4 verdade que para isso 6 necessdno 

tempo. 

Informa^es novas de todo tipo que nos chegam todos os 
dias e tern que ser sedimentadas e digeridas quase que de 
imediato, tomam-nos preciosas horas, e o tempo gasto 
com cada paciente deve ser o maior possivel. 
Assim, qualquer medida que se tome para tomar o tempo 
do medico melhor aproveit^vel 6 valida e o progresso 
tecnoldgico nos trouxe um pequeno aparelho que vem de 
encontro a isto: o microcomputador. 
Como exemplos simples de utiliza^fo do micro num 
consultdrio medico, podemos citar: cadastramento de 
clientes; marca^o de consultas; arquivo de dados de 
anamnese; exames fisicos, diagndsticos e do tratamento; 

selet^o de diagndsticos provaveis; utiliza^o de tabelas 
de dificil memoriza^o; contabilidade do consultdrio etc. 
0 programa que apresentamos a seguir i um exemplo pequeno 
que poderia fazer parte da rotina diiria de um consult 6rio, 
laboratdno ou hospital. Ele calcula uma data provdvel do 
parto de gestantes a partir da data da ultima menstruaffo, 
atravls da Regra de Nagelle, e foi desenvolvido em 

BASIC no CP-500. 



Adauto Dutra M. Barbosa 4 M4dico Pediatra pds-graduado pela Univer- 
sidade Federal do Rio de Janeiro — UFRJ e utilize microcomputadores 
em sua clinica particular hi alguns anos. 



CAlculo da Data ProvA vel de Parto 

1 TABELA OBSTETRICA :::::::: 



:::::::::::::::::::::::::::::::::: 

2 1 : : BASEADA NA REGRA DE NAGELLE : : t 

:::::::::::::::::::::::::::::::::: 

3 ' : : AUTOR : ADAUTO DUTRA M BARBOSA : 

:::::::::::::::::::::::::::::::::: 

4 NITEROI ::: RJ ::: 1983 :: 



120 CLS 

130 FOR B= 1 TO 127: SET ( B , 1 ) : NEXT 
140 FOR B= 1 TO 47: SET ( 1 , B ) : NEXT 
150 FOR B= 1 TO 127:SET(B,47) :NEXT 
160 FOR B= 1 TO 47:SET( 127, B) :NEXT 
170 ?©1 50, "TABELA OBSTETRICA" 

180 ?©2 14, STRING? ( 17,":") 

190 ?©278, "REGRA DE NAGELLE" 

200 ? 

210 ?©TAB ( 5 ) " DATA DA ULTIMA MENSTRUACAO" 

220 ?©453 , STRINGS ( 25 , "-" ) 

230 INPUT "{(DIGITE ENTRE VIRGULAS : DIA,MES , ANO ) : " ;D 
,M,A 

240 ?@645 , "DATA PROVAVEL DO PARTO: ": ?©676 , STRING? ( 1 
0,"-") 

250 ?©709, STRING? < 22,"-") : ?©740 , STRING? ( 1 ,"-") :?©74 
9, STRING? (1,"-") 

260 IF D<ASC(";")-ASC(" # ") THEN ?©742, "DIA: " ;D+ASC( 
"K")-ASC("D") 

270 IF D > ASC ( “ ©" ) - ASC ( " % " ) THEN ?©742 , "DIA: " ; D- ( ASC 
( " ? " ) - ASC ("%")) 

280 IF D=ASC( "U" )-ASC( "<*) THEN ?©742 , "DI A: " ; ASC( " * 
" ) -ASC ( " ( " ) 

290 IF D=ASC ( "U" ) -ASC ( " ; " ) THEN ?©742 , "DIA: " ; ASC ( " ' 
" ) -ASC ( " ? " ) 

300 ?©804, STRING? ( 1 ,"-"): ?@8 1 3 , STRING? ( 1 ,"-") 

310 ?@868, STRING? ( 1 ,"-") 

320 N?=CHR? ( 51 ) : IF M<»VAL(N?) THEN ?©870 , "MES : " ;M+A 
SC( "/" ) -ASC (“*»"): ?©877 , STRING? ( 1 ,"’") 

330 M?=CHR?(52) :IF M>-VAL(M?) THEN ?©870 , "MES : " ;M- ( 
ASC ( "=" ) -ASC (":")): ?©877 , STRING? ( 1 , " ' " ) 

340 ?©932 , STRING? ( 1 , " ' " ) : ?©94 1 , STRING? ( 1 , " ' " ) 

350 ?©996, STRING? ( 1 ,"*") 

360 S?=CHR? ( 51 ) : IP M=VAL(S?) THEN ?©934 , "ANO: " ; A 
370 R?=CHR?(52) :IF M=VAL( R? ) THEN ?©934 , "ANO: " ;M+AS 
C( "/" )-ASC( " . " ) 

380 ?©94 1, STRING? (1,"’") 

390 FOR K= 1 TO 47: SET ( 1 , K ) : NEXT 
400 FOR K= 1 TO 1 27 : SET< 47 , K ) :NEXT 
410 FOR K= 1 TO 47 :SET( 1 27,K) :NEXT 
420 FOR K= 1 TO 35 : SET( K, 3 ) : NEXT 
430 FOR K=80 TO 1 27 :SET( K , 3 ) : NEXT 
440 FOR K= 1 TO 1 27 : SBT( K , 1 ) :NEXT 

450 Z?= INKEY? : IF Z?="" THEN 450 ELSE END ■ 






Com a ajuda do CP- 500, voce podera saber com antecedencia os aniversdrios 
do mes e evitar aque/es esquecimentos tao constrangedores. 



Parabens no dia certo 

Luiz Gonzaga de Alvarenga 



uitas vezes ocorre de nos lembrarmos tardiamente de 
urn aniversano do qual nao deveriamos ter esquecido. 

Outras vezes, queremos saber antecipadamente os 

aniversarios que irao ocorrer em determinado mes, ou mesmo 
verificar em que data determinada pessoa vai amversanar. 

Com a ajuda deste pequeno programa, pode-se fazer urn 
controle rapido, facil e eficiente das datas de aniversano que 
nos mteressam. Ele perrrute uma hstagem por nomes ou datas 
(meses), podendo controlar urn maximo de 40 nomes ou 
datas. 

Como sao ainda poucos os usudnos de micros que possuem 
disquetes, o programa foi desenvolvido de modo a conter os 
dados nas linhas com instrusdes DATA. Dessa forma, devem 
ser mtroduzidas linhas em qualquer posi^ao do programa com 
as mforma^des a serem arquivadas, conforme o modelo 
mostrado na figura 1. 

£ convemente colocar os nomes em ordem alfabetica. pois 
assim ficara mais facil procurar na lista que o programa lr a 
mostrar no video. 

Caso se deseje, o numero de nomes e/ou datas de aruversd- 
no pode ser aumentado, modificando-se as linhas 30, 70, 90, 
110. 120, 150e 360. 

O programa foi elaborado no CP-500 e roda em outros equi- 
pamentos com poucas modificavoes. 



Luiz Gonzaga de Alvarenga d T6cnico de Telecomun ica gdes e trabalha 
na Embratel, em GoiSnia, onde reside 



Controle de Datas de Aniversarios 

10 CLS > G0SUB230 
20 CLS 

30 D1MAK41 ) ,BS<41> 

4U 00T070 

bo PR1NTB1006," " | IF 0RS“1 T 030 : NEX I : PR 1 NT ill 006 , "ENTER" i IF OR 

T=1T050INEXT 

60 Q*= 1NKEYH IFai-*""! HEN5UELSECLS :kET URN 
/0 F0RI"i T041 1 RE ADAS ( 1), Bid): ML XI 
BO 1FHJ=1T HENHJ»0: Q0T033Q 
VO FOR 1 = 11041 
100 PR1NTAKI) 

110 iri=13TMENPRlNTai005,"<ENTER>"| IG0SUB50 
120 IF 1*30 fHENPR INT OlUOb ,"< ENTER >" j IG0SU8S0 
130 NEXT 1 

140 PRlNTi)960,"0UAL 0 NOME ESCOLHIDO"' I INPUTS* 

130 FORI«1T041 

160 lFAKl)«StTHENG0SUB230 

1/0 NEXT! 

180 PRINT"0UTR0 NOME? <S/N>", 

1V0 P4*INKEY1 « 1FP$='"'THEN1 VOELSE IF P%< >"S"THENENDELSECLS SG0T090 
230 PRINT "NOME t " , AS< I > , IPR INI" - ANIUERSARXOl "•Bill) 

240 RETURN 

230 PR INI 3533," » DATAS OE ANI VERSAR 10 « ", 

260 PRINrav9V,~rECLt ( ENTER > P/INIC1AR", 

270 QOSUBSO 

2B0 CLS: 1NPUT"QULR LIST AGEM POR-NOMES <1> OU POR DAI AS <2>"jK 

290 ONKGO T0310, 320 

300 IFK ( 10RK >2GOT0280 

310 RETURN 

320 HJ-1 IRC TURN 

330 INPUT"BUAL 0 MES <1> a <12>r,l. 

340 IFL>«10THENPL»1 
330 CSS'STRKL) 

360 F0RU-1T041 
370 1FPL-1TMEN3V0 

373 IFMID»(B»<U>,4,1)«"1~THENNEXTU 
380 IFMIDk(BKU) ,5,1 J-M1US < CSS , 2 , 1 ) TMENG0SUB420 
3V0 IFMXDS(UKU) , 4 , 2) >MI0S< CSS , 2 , 2 > THCNG0SUB420 
400 NEXTU 
410 00TO430 

420 PRlNTAS(U),BS<U>sRETURN 

430 PRINT IPR I NT "MAIS DATAS? (S/N>~, . 

440 AS-INKEYSiIFAS-""THEN440EL8EIFASO"S"THENENDELSECLSlPL»0lG 
0T0330 _ 

A 



t 

cl 



CEIIII1LDITI 

Cn i lurtmlHln 1th. 



SUPRIMENTO E COISA SERIA 

• Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 




Discos Magneticos 5 Mb. 16 Mb. 80 Mb etc. 

Diskettes 5 1/4, e 8 Poiegadas — Simples e Dupla Face 

ETIQUETAS PINIACO -PIMATAB 



263-5876 - 253-1120 - RJ 



• Fita Magnetica 600 1 200e 24D0 POs 

• Fita CARBOFITAS p/lmpressoras Globus M 200 — B 300/600 

• Fita p/lmpressoras: Elebra. Oigilab. Diablo. Centromcetc. 

• Cartucho Cobra 400 

• Pastas e FormuiariosContinuos. 
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I naugurada recentemente em Porto Alegre, a Computche traz uma proposta 
sdria para ap!i cacao dos micros no Brasil. 



Computche, uma loja trilegal! 



Icupando uma area com cerca 
de 350 metros quadrados na 

Av. Independence — 599, a 

Computche, uma loja do Grupo LHM 
Software & Hardware, esti dividida em 
tres departamentos: vendas de equipa- 
mentos, software, penfincos, acessd- 
rios, livros e revistas especializadas; as- 
sessona is empresas na implantafao de 
micro-sistemas; e um terceiro setor de- 
dicado a formafio profissional, com 
cursos de digitafio/operafio;programa- 
cio em lmguagens BASIC, COBOL e 
FORTRAN e ainda palestras e semina- 
rios. 

0 Diretor-Presidente do Grupo LHM, 
Luis Henrique Mignone,ao consideraro 
mercado gaucho altamente promissor e 
receptivo is inovafOes, afirma ser a 
Computche nao apenas mais uma loja 
de microcomputadores, mas sim o novo 
ponto de encontro da comunidade de 
Informitica de Porto Alegre. “Para isso, 
estamos utilizando um marketing bas- 
tante agressivo , oferecendo 6tima quali- 
dade dos produtos e onentafao ao clien- 
te na hora da compra”, diz Luis Henn- 
que. 

OS DEPARTAMENTOS 

* 

O departamento de vendas da Com- 
putche comercializa tanto os produtos 
fabncados pela LHM Software e Hard- 
ware co mo os equipamentos da Unitron, 
Prol6gica, Polymax, Kemitron, Digitus e 
Microdigital. Na irea de software, sio 
ofereados os seguintes pacotes: Conta- 
bilidade Geral, PERT/CPM, Arquivos, 
Mala Direta, Visiplot/Visitrend, Editor 
de Textos, Adm. Imobiliana, VisiCalc, 
Folha de Pagamento, Consultor Medico, 
Consultor Odontol6gico, entre outros. 

“Como quase tudo o que n6s temos 
no Brasil, em termos de acessdrios pa- 
ra o computador, 6 importado ou con- 
trabandeado, a LHM decidiu se lan far 
na fabricafio de acessdrios”, diz Luis 
Henrique. A Computche passari a co- 
mercializar Placas de Expansio de 16, 
32, 64 e 1 28 K para a linha Apple ; Placa 



Videx; Buffer de 32, 64 e 128 K para 
impressoras; Tedado Num^nco para 
Apple; Ventilador para CPU ; VentUador 
para Drive e joystick. 

A Computche mantim, junto com a 
equipe de vendas, uma outra de consul- 
tores espeaalizados para onentar as em- 
presas na implantafio de micro-siste- 
mas. Pnmeiro, para analisar qual exata- 
mente o equipamento adequado is ne- 
cessidades do diente. Segundo, para 
constatar se existem no mercado pro- 
gramas disponiveis para aquele tipo de 
aquisifio. 

Segundo Luis Henrique, a Comput- 
che 6 a unica loja em todo Brasil que 
oferece seis meses de garantia na compra 
de qualquer produto. 0 diente tern ati 
36 meses para pagar; na compra de um 
equipamento ganha um programa aplica- 
tivo de bomficaffo e se levar a linha 
Software LHM, tern 10% de desconto. 




A Computche t o mats novo ponto de 
encontro da comunidade de Informdti- 
ca, em Porto Alegre. 



MUDAN^A DE FILOSOFIA 

Para o Presidente do grupo LHM, a 
maior preocupafio da Computche £ 
com a qualidade dos produtos que co- 
mercializa. 0 objetivo do grupo 6 esta- 
belecer no mercado gaucho um padrio 
de qualidade confiivel para o diente. 
Todos os produtos comercializados na 
loja e que nio sio fabncados pela LHM 
passam por um critenoso sistema de 
selefio. 

Outra preocupafio do grupo refere- 
se i forma como foram apresentados os 
micros no Brasil. “Houve um erro de 
marketing em tudo isso”, afirma Luis 
Hennque. “N6s vemos fabncantes lan- 
fando os micros como mi quin as de jo- 
guinhos. Apresentam o micro como um 
flipper e depois dizem que ele tamWm 
faz coisas sinas. £ contra este tipo de 
mentalidade que n6s estamos lutando, 
produzindc uma linha de aplicafio sina 
para o computador”. A Computche 
vende 99% de aplicativos, deixando os 
jogos em segundo piano. 

0 Presidente do grupo LHM nio ve 
com muito otimismo o setor de Infor- 
mitica, no Brasil. Para ele, muitas coi- 
sas nessa irea estffo erradas e desajus- 
tadas. “Trabalhar na irea de software, 
neste pais, com os piratas i solta, £ 
brincadeira. Lamento que uma irea tio 
importante esteja relegada ao jeitinho 
brasileiro. A SEI 6 um 6rgio acifalo e 
n6s nSo temos um foro para discutir 
qualquer tipo de assunto”. 

Luis Henrique Mignone acredita que, 
embora o mercado de micros no Brasil 
seja muito promissor, a maior parte dos 
que estio se lanfando nio terio estrutu- 
ra para prosseguir. “Serio neoessinos al- 
tos investimentos, boa dose de profissio- 
nalismo e muito jogo de cintura para 
nio sucumbir”, condui ele. ■ 



Tex to: Grace Santos 
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